Question

VB 输出前10个能被3或5整除的正整数

Answer 1

Private Sub Command1_Click()

Dim x&, i&

Do

x = x + 1

If (x Mod 3 = 0) Or (x Mod 5) = 0 Then

Print x

i = i + 1

End If

If i >= 10 Then Exit Do

Loop

End Su