vb求1～100之间5或7的倍数和．工程文件命名为sj1.vbp,窗口文件命名为sj1.frm

Private Sub Form_Click()
Dim I As Integer
Dim S1, S2, S3 As Integer
Form1.Cls

For I = 1 To 100
If I Mod 5 = 0 Then
Print I;
S1 = S1 + I
End If
Next I
Print Chr(13) & "1－100之间被5整除的数之和为：S1＝" & S1
For I = 1 To 100
If I Mod 7 = 0 Then
Print I;
S2 = S2 + I
End If
Next I
Print Chr(13) & "1－100之间被7整除的数之和为：S2＝" & S2
For I = 1 To 100
If (I Mod 5 = 0) And (I Mod 7 = 0) Then
Print I;
S3 = S3 + I
End If
Next I
Print Chr(13) & "1－100之间被7和5整除的数之和为：S3＝" & S3
Print Chr(13) & "1－100之间被7或5整除的数之和为：S4＝" & S1 + S2 - S3
End Sub
工程文件命名为sj1.vbp,窗口文件命名为sj1.frm

Private Sub Command1_Click()
Cls
Dim sum As Integer, i As Integer
For i = 1 To 100
If i Mod 5 = 0 Then
sum = sum + i
End If
Next
Print sum
End Sub