Private Sub Command1_Click()
Dim i, t As Integer
t = 0
For i = 1 To 100
If i Mod 3 = 0 Or i Mod 5 = 0 Then t = t + i
Next
Print t
End Sub
Option Explicit
Private Sub Form_Click()
Dim i As Integer, isum As Integer
For i = 1 To 100
If i Mod 3 = 0 Or i Mod 5 = 0 Then isum = isum + i
Next i
Print isum
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024