vba求奇数偶数和的循环代码之递增递减循环

一、求偶数之和

求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

所属专题:

如果您觉得本文或图片不错，请把它分享给您的朋友吧！