VB编程.题目如下

3.求1~100之间的所有被五整除的数之和! 4.编程计算1~100之间的奇数和及偶数和.并分别输出结果.

答案：'question 3
Option Explicit
Private Sub Command1_Click()
    Dim i, sum As Long
    For i = 2 To 100
        If i Mod 5 = 0 Then sum = sum + i
    Next
    MsgBox "1~100之间的所有被五整除的数之和:" & sum
End Sub
'---------------------------------
'question 4
Option Explicit
Private Sub Command1_Click()
    Dim i, sum1 As Long, sum2 As Long
    For i = 1 To 100
        If i Mod 2 = 0 Then
            sum2 = sum2 + i
        Else
            sum1 = sum1 + i
        End If
    Next
    MsgBox "1~100之间的奇数和" & sum1 & vbNewLine & "1~100之间的偶数和" & sum2
End Sub

上一个：VB编程系列问题7
下一个：vb编程，要求如下