求用access中的vba設計壹個程序求1到100之間所有奇數的和，求代碼

Sub Proce1()

Dim i as Integer

For i =0 to 100

If i Mod 2 =1

then i = i + 1

End if

Debug.Print i

End sub

上面的是求奇數的和，如果是求偶數和的話，把 if 後面改為：i Mod 2 = 0 就ok了~