一、求偶數之和

　　求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