求用access中的vba设计一个程序求1到100之间所有奇数的和，求代码

Question

如题所述

Answer 1

代码如下：
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了~追问

这是自己打的还是搜来的？我写实验报告，不想重写。。。

大神我还有一个提问，您看看能不能也帮忙解决了