Sisältö - For Next  - DoLoopWhileUntil - ForEach


Do ... Loop ...While ... Until


Do looppi voidaan toteuttaa neljällä tavalla

        'Do loop While vertailu lopussa
        k = 1
        Do
            k = k + 1
        Loop While k < 11
        '
        'Do loop Until vertailu lopussa
        k = 1
        Do
            k = k + 1
        Loop Until k = 11
        '
        'Do loop, While vertailu alussa
        k = 1
        Do While k < 11
            k = k + 1
        Loop
        '
        'Do loop, Until vertailu alussa
        k = 1
        Do Until k = 11
            k = k + 1
        Loop

Do looppi voidaan myös keskeyttää:
        'exit
        k = 1
        Do Until k = 11
            k = k + 1
            If k = 7 Then Exit Do
        Loop

While looppi perustavalla ja keskeytyksellä.
        '
        'while loop
        k = 1
        While k < 11
            k += 1
        End While
        '
        'Exit while
        k = 1
        While k < 11
            k += 1
            If k = 4 Then Exit While
        End While