您现在的位置： 万盛学电脑网 >> 办公软件 >> Excel教程 >> excel综合 >> 正文
1000以内能被5整除的数之和的VBA代码
作者：佚名 责任编辑：admin 更新时间：2022-06-22
下面的两种代码，功能都是求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
- 上一个办公软件： vba求奇数偶数和的循环代码之递增递减循环
- 下一个办公软件： vba goto语句范例
