1000以内能被5整除的数之和的VBA代码

下面的两种代码，功能都是求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

所属专题:

如果您觉得本文或图片不错，请把它分享给您的朋友吧！