Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
If (i Mod 5) = 0 Or (i Mod 7) = 0 Then
sum = sum + i
End If
Next
MsgBox sum
End Sub
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 100
If (i Mod 5) = 0 Or (i Mod 7) = 0 Then
sum = sum + i
End If
Next
MsgBox sum
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货