编程找出1~100之间能被2整除，但是不能被3整除的所有整数，将这些整数累加求和。（For循环）
Private Sub Command1_Click()
Dim s%, i%
s = 0
For i = 1 To 100
If i Mod 2 = 0 And i Mod 3 <> 0 Then
s = s + i
End If
Next i
Print "s="; s
End Sub
这题写的对吗大佬们

。。。

对