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

来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/09 08:49:13
vb编程1000以内能被7、17整除的正整数的个数,并求和vb编程1000以内能被7、17整除的正整数的个数,并求和vb编程1000以内能被7、17整除的正整数的个数,并求和Dima%,b%,c%,s

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