Private Sub Command1_Click()
Dim i%,j3%,j7%
For i = 1 To 100
If i Mod 3 = 0 Then j3 = j3 + 1
If i Mod 7 = 0 Then j7 = j7 + 1
Next
Print "3的倍数的个数:"; j3
Print "7的倍数的个数:"; j7
End Sub