|
|
|
下面的兩種代碼，功能都是求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
|
|
發表留言請先登錄！
|