求VB编程 :输出100~200间所有不能被3整除的数并求和.

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/17 08:08:06

求VB编程 :输出100~200间所有不能被3整除的数并求和.

Private Sub Command1_Click()
For i = 100 To 200
If i Mod 3 0 Then
s = s + i
Print i;
n = n + 1
If n Mod 10 = 0 Then Print
End If
Next
Print
Print "100~200间所有不能被3整除的数的和="; s
End Sub