當前位置：主頁 > 教程 > 軟件教程 > Excel教程 >

vba求奇數偶數和的循環代碼之遞增遞減循環

來源：技術員聯盟┆發布時間：2019-03-25 06:19┆點擊：

　　一、求偶數之和

　　求1000以內的偶數和。

　　第一種代碼：變量遞增的

　　Sub 求1到1000之間偶數和()

　　Dim I&, J&

　　For I = 0 To 1000 Step 2

　　J = J + I

　　MsgBox "1到1000之間偶數和為" & J

　　End Sub

　　第二種代碼：變量遞減的

　　Sub 求1到1000之間偶數和2()

　　Dim I&, J&

　　For I = 1000 To 1 Step -2

　　J = J + I

　　MsgBox "1到1000之間偶數和為" & J

　　End Sub

　　二、求奇數之和

　　第一種代碼：變量遞增

　　Sub 求1到1000之間奇數和()

　　Dim I&, J&

　　For I = 1 To 1000 Step 2

　　J = J + I

　　MsgBox "1到1000之間奇數和為" & J

　　End Sub

　　第二種代碼：變量遞減

　　Sub 求1到1000之間奇數和2()

　　Dim I&, J&

　　For I = 999 To 1 Step -2

　　J = J + I

　　MsgBox "1到1000之間奇數和為" & J

久久96国产精品久久久-久久发布国产伦子伦精品-久久精品国产精品青草-久久天天躁夜夜躁狠狠85麻豆