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

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 02:56:28
vb编程 1000以内能被7、17整除的正整数的个数,并求和
x)+Kzg Ov/}yE74?%g<[~6ud* Cm66=cTO l&\DU$ NbC 6bl@QfYbIBpi[~QnsNfr&X(``vX3 (蛟`2PH' `^! $2|׼4T LHr&L0f_jE 3 fesy% P F 1\

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