求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?

求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?
求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?

求vb语句：分别统计1~100中,满足3的倍数,7的倍数各有多少个?
Private Sub Command1_Click()
Dim m%, n%
For i = 1 To 100
If i Mod 3 = 0 Then m = m + 1
If i Mod 7 = 0 Then n = n + 1
Next i
Print "统计1~100中,满足3的倍数的个数是"; m
Print "统计1~100中,满足7的倍数的个数是"; n
End Sub