access vba 编程 请高手发个编程代码。谢谢。谢谢、

'计算1到100的所有偶数的和 Function sum100() As Integer Dim i As Integer Dim iSum As Integer iSum = 0 For i = 2 To 100 Step 2 iSum = iSum + i Next i sum100 = iSum MsgBox (iSum) iSum = 0 i = 2 While (i <= 100) iSum = iSum