[1000以内能被5整除的数之和的VBA代码]100以内能被7整除的数

下面的两种代码，功能都是求1000以内能被5整除的数之和。

第一种代码

Sub 求1到1000之间能被5整除的数之和()

Dim I&, J&

For I = 0 To 1000 Step 5

J = J + I

Next

MsgBox "1到1000之间能被5整除的数之和为" & J

End Sub

第二种代码

Sub 求1到1000之间能被5整除的数之和2()

Dim I&, J&

For I = 100 To 1 Step -5

J = J + I

Next

MsgBox "1到1000之间能被5整除的数之和为" & J

End Sub