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

Admin | 2015-1-24 7:30:54 | 被阅次数 | 8267

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　一、求偶数之和

　　求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

该杂文来自： Excel杂文

仅显示20篇文章