VBA作业

1 在VBE中编写一个函数，计算从1累加到100的和，用MsgBox显示计算结果。

以下分别为do语句和for语句写成的模块

Sub oneTo100的和()
    i = 1
    s = 0
    Do While i <= 100
        s = i + s
        i = i + 1
    Loop
    MsgBox ("1累加到100的和为：" & s)
End Sub

Sub oneTo100的和()
    s = 0
    For i = 1 To 100
        s = i + s
    Next
    MsgBox ("1累加到100的和为：" & s)
End Sub

结果显示：

2 在VBE中编写一个函数，计算从1~100中偶数的和，用MsgBox显示计算结果。

Sub oneTo100的偶数和()
    s = 0
    For i = 2 To 100 Step 2
        s = i + s
    Next
    MsgBox ("1累加到100的和为：" & s)
End Sub