如题所述
Private Sub Form_Click()
Dim i As Long, A As Long
A = 0
For i = 1 To 200
If i Mod 5 = 0 And i Mod 7 = 0 Then
Print i
A = A + i
End If
Next
Print "以上是同时被5和7整除的数,和=" & A
End Sub