大众计算机学习网

专门提供各种电脑教程

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

Admin | 2015-1-25 8:34:29 | 被阅次数 | 3407

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