Instructie Do...Loop

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