Private Sub btnTest_Click()
Dim i As Integer
Dim iSum As Integer
Dim strTmp As String
For i = 1 To 100
If i Mod 3 = 0 Then
strTmp = strTmp & i & " + "
iSum = iSum + i
End If
Next
MsgBox Mid(strTmp, 1, Len(strTmp) - 2) & " = " & iSum
End Sub
Private Sub Form_Click()
Dim i As Integer, sum As Integer
For i = 1 To 100
If i Mod 3 = 0 Then sum = sum + i
Next
Print sum
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！