Question

输出1000以内所有能被37整除的整数.

Answer 1

Private Sub Command1_Click()

Dim i As Long

Dim s As String

For i = 1 To 1000

DoEvents

If (i Mod 37) = 0 Then s = s & CStr(i) & " "

Next i

MsgBox s

End Su