vba求奇数偶数和的循环代码之递增递减循环
摘要：一、求偶数之和求1000以内的偶数和。第一种代码：变量递增的Sub求1到1000之间偶数和()DimI&,J&ForI=0To1000Ste...
一、求偶数之和
求1000以内的偶数和。
第一种代码：变量递增的
Sub 求1到1000之间偶数和()
Dim I&, J&
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
End Sub
【vba求奇数偶数和的循环代码之递增递减循环】相关文章：