编写程序,找出7的倍数中十位数为2的所有3位数.

Question

编写程序,找出7的倍数中十位数为2的所有3位数.

Answer 1

Excel VBA:
Sub test()
j = 1
For i = Int(100 / 7) + 1 To Int(999 / 7)
If Int(7 * i / 10) - Int(7 * i / 100) * 10 = 2 Then
Range("A" & j).Value = 7 * i
j = j + 1
End If
Next i
End Sub
结果返回到A列