Question

VB编程 1-100中被3整除数的累加和

Answer 1

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

Answer 2

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