一、求偶數(shù)之和

　　求1000以內(nèi)的偶數(shù)和。

　　第一種代碼：變量遞增的

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

　　Dim I&, J&

　　For I = 0 To 1000 Step 2

　　J = J + I

　　Next

　　MsgBox "1到1000之間偶數(shù)和為" & J

　　End Sub

　　第二種代碼：變量遞減的

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

　　Dim I&, J&

　　For I = 1000 To 1 Step -2

　　J = J + I

　　Next

　　MsgBox "1到1000之間偶數(shù)和為" & J

　　End Sub

　　二、求奇數(shù)之和

　　第一種代碼：變量遞增

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

　　Dim I&, J&

　　For I = 1 To 1000 Step 2

　　J = J + I

　　Next

　　MsgBox "1到1000之間奇數(shù)和為" & J

　　End Sub

　　第二種代碼：變量遞減

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

　　Dim I&, J&

　　For I = 999 To 1 Step -2

　　J = J + I

　　Next

　　MsgBox "1到1000之間奇數(shù)和為" & J

　　End Sub