用VB分别统计1-100中,满足3的倍数,7的倍数的数各有多少

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 Su