管理资源吧

当前位置:管理资源吧首页>>>tech>>>c1>>>Excel教程

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

tech首页 更多tech