access vba 編程 請高手發個編程代碼。謝謝。謝謝、

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 + i

i = i + 2

Wend

MsgBox (iSum)

iSum = 0

i = 2

Do Until (i > 100)

iSum = iSum + i

i = i + 2

Loop

MsgBox (iSum)

sum100 = iSum

End Function

'計算出1至200能被3整除的所有數, 並統計個數

Function sum200d3() As Integer

Dim i As Integer

Dim iCount As Integer

Dim sNum As String

iCount = 0

sNum = "1至200能被3整除的所有數:"

For i = 1 To 200

If i Mod 3 = 0 Then

sNum = sNum + Str(i) + ", "

iCount = iCount + 1

End If

Next i

MsgBox (sNum + "個數為:" + Str(iCount))

End Function

'附言: 小鬼, 作業要自己完成啊!