vba学习笔记 do while和 do until的使用

Sub testDoWhile()
    Dim a As Integer
    Dim sum As Integer
    sum = 0
    a = 1
    Do While a <= 100
        sum = sum + a
        a = a + 1
    Loop
    MsgBox "1 + 2 + 3 + …… +100 = " & sum, vbOKOnly, "calculate the sum"
End Sub

Sub testDoWhile2()
    Dim a As Integer
    Dim sum As Integer
    a = 1
    sum = 0
    Do
        sum = sum + a
        a = a + 1
    Loop While a <= 100
    MsgBox "1 + 2 + 3 + …… +100 = " & sum, vbOKOnly, "calculate the sum"
End Sub

Sub testDoUntil()
    Dim a As Integer
    Dim sum As Integer
    a = 1
    sum = 0
    Do Until a > 100
        sum = sum + a
        a = a + 1
    Loop
    MsgBox "1 + 2 + 3 + …… +100 = " & sum, vbOKOnly, "calculate the sum"
End Sub

Sub testDoUntil2()
    Dim a As Integer
    Dim sum As Integer
    sum = 0
    a = 1
    Do
        sum = sum + a
        a = a + 1
    Loop Until a > 100
    MsgBox "1 + 2 + 3 + …… +100 = " & sum, vbOKOnly, "calculate the sum"
End Sub

最后

以上就是傻傻八宝粥最近收集整理的关于vba学习笔记 do while和 do until的使用的全部内容，更多相关vba学习笔记内容请搜索靠谱客的其他文章。