vb题：输出1~100自然数中被3整除的数据的个数几它们的和。

vb题??不太明白啥意思
我想把它做数学题来算,
100÷ 3=33 余1 ,所以 个数为33
再比如说,1~100自然数中能被5整除的个数 100÷5=20 所以 个数是20

再比如说 20~99中 被3整除的自然数的个数 99÷3=33 20÷3=6 余2 33-6=27 所以个数为27

好的,就做这道练习题(添加一个命令按钮)
Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As Integer
For i = 1 To 100
If i Mod 3 = 0 Then
n = n + 1
s = s + i
End If
Next i
Print "1~100自然数中能被3整除的数据的个数为：" & n
Print "以及它们的和为：" & s
End Sub