Module
Inhoud
Index 🔎︎

# Do...Loop-instructie

Herhaalt de instructies tussen de Do- en Loop-instructie terwijl de voorwaarde 'Waar' is of tot de voorwaarde 'Waar' wordt.

## Syntaxis

    Do [{While | Until} voorwaarde = Waar]

instructieblok

    [Exit Do]

instructieblok

    Loop

of

    Do

instructieblok

    [Exit Do]

instructieblok

    Loop [{While | Until} voorwaarde = Waar]

## Parameters/Elementen

Voorwaarde: Een vergelijking, numerieke expressie of tekenreeks, die Waar of Onwaar kan zijn.

Instructieblok: Instructies die u wilt herhalen terwijl of tot de voorwaarde 'Waar' is.

De instructie Do...Loop voert een lus uit zolang of tot een bepaalde voorwaarde 'Waar' is. De voorwaarde voor het afsluiten van de lus moet ingevoerd worden na de instructie Do of Loop. De volgende voorbeelden zijn geldige combinaties:

## Syntaxis

    Do While voorwaarde = Waar

...instructieblok

    Loop

Het instructieblok tussen de Do While- en Loop-instructie wordt herhaald zolang de voorwaarde waar is.

    Do Until voorwaarde = Waar

...instructieblok

    Loop

Het instructieblok tussen de Do Until- en Loop-instructie wordt herhaald zolang de voorwaarde onwaar is.

    Do

...instructieblok

    Loop While voorwaarde = Waar

Het instructieblok tussen de Do- en de Loop-instructies wordt herhaald zolang de voorwaarde waar is.

    Do

...instructieblok

    Loop Until voorwaarde = Waar

Het instructieblok tussen de Do- en Loop-instructie wordt herhaald tot de voorwaarde waar is.

Gebruik de instructie Exit Do om de lus onvoorwaardelijk te beëindigen. U kunt deze instructie overal in een instructie Do...Loop toevoegen. U kunt ook als volgt een afsluitvoorwaarde opgeven met behulp van de structuur If...Then:

    Do...

instructies

    If voorwaarde = Waar Then Exit Do

instructies

    Loop...

## Voorbeeld

    Sub ExampleDoLoop

    Dim sFile As String

    Dim sPath As String

        sPath = "c:\"

        sFile = Dir$( sPath ,22)

        If sFile <> "" Then

            Do

                MsgBox sFile

                sFile = Dir$

            Loop Until sFile = ""

        End If

    End Sub