VB 输出前10个能被3或5整除的正整数
问题描述:
VB 输出前10个能被3或5整除的正整数
答
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 Sub