下面的两种代码,功能都是求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
零七网部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与零七网进行文章共享合作。