利用循环结构分别统计1～100中，满足3的倍数、7的倍数的数各有多少？vb

Private Sub Form_Click()
Dim i as Integer, c1 as Integer, c2 as Integer
For i = 1 To 100
If i Mod 3 = 0 Then c1 = c1 + 1
If i Mod 7 = 0 Then c2 = c2 + 1
Next i
Print "3的倍数有"