vb编程 1000以内能被7、17整除的正整数的个数,并求和

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 10:00:16

vb编程 1000以内能被7、17整除的正整数的个数,并求和
vb编程 1000以内能被7、17整除的正整数的个数,并求和

vb编程 1000以内能被7、17整除的正整数的个数,并求和
Dim a%, b%, c%, s1, s2, s
Private Sub Form_Click()
For i = 1 To 1000
If i Mod 7 = 0 Then
a = a + 1
s1 = s1 + i
End If
If i Mod 17 = 0 Then
b = b + 1
s2 = s2 + i
End If
Next
c = a + b
s = s1 + s2
Print c; s
End Sub