编程求出1—100之间能被3或7整除的数的平方和

Private Sub Command1_Click()
Dim i, j, sum As Integer
For i = 1 To 100
j = i Mod 21
If j = 0 Then sum = sum + i ^ 2
Next i
Print sum '打印和
End Su