下面的兩種代碼，功能都是求1000以內(nèi)能被5整除的數(shù)之和。

　　第一種代碼

　　Sub 求1到1000之間能被5整除的數(shù)之和()

　　Dim I&, J&

　　For I = 0 To 1000 Step 5

　　J = J + I

　　Next

　　MsgBox "1到1000之間能被5整除的數(shù)之和為" & J

　　End Sub

　　第二種代碼

　　Sub 求1到1000之間能被5整除的數(shù)之和2()

　　Dim I&, J&

　　For I = 100 To 1 Step -5

　　J = J + I

　　Next

　　MsgBox "1到1000之間能被5整除的數(shù)之和為" & J

　　End Sub