J For I = 1 To 1000 Step 2 J = J + I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码：变量递减 Sub 求1到1000之间奇数和2 Dim I

一、求偶数之和
求1000以内的偶数和。
第一种代码：变量递增的
Sub 求1到1000之间偶数和()
Dim I&, J&
【J For I = 1 To 1000 Step 2 J = J + I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码：变量递减 Sub 求1到1000之间奇数和2 Dim I】For I = 0 To 1000 Step 2
J = J + I
Next
MsgBox “1到1000之间偶数和为” & J
End Sub
第二种代码：变量递减的
Sub 求1到1000之间偶数和2()
Dim I&, J&
For I = 1000 To 1 Step -2
J = J + I
Next
MsgBox “1到1000之间偶数和为” & J
End Sub
二、求奇数之和
第一种代码：变量递增
Sub 求1到1000之间奇数和()
Dim I&, J&
For I = 1 To 1000 Step 2
J = J + I
Next
MsgBox “1到1000之间奇数和为” & J
End Sub
第二种代码：变量递减
Sub 求1到1000之间奇数和2()
Dim I&, J&
For I = 999 To 1 Step -2
J = J + I
Next
MsgBox “1到1000之间奇数和为” & J

J For I = 1 To 1000 Step 2 J = J + I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码：变量递减 Sub 求1到1000之间奇数和2 Dim I

推荐阅读

关于节约粮食的名言诗句关于节约粮食的名言和诗句

奋斗励志朋友圈句子励志短句致自己奋斗朋友圈

想发朋友圈表示心情不好的句子心情不好发朋友圈的句子心情短句

贝拉玻尿酸是合法的吗贝拉玻尿酸是进口的还是国产的

核桃仁做菜的菜谱，您知道桃仁脆溜鸡的做法

浅紫色显皮肤黑还是白

库伦旗景点

居家隔离和集中隔离的区别什么情况下要隔离28天

蝉蛹是什么

怎样能丰胸最安全有效