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&

　　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

文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。

　　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

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/32452.html