Do...Loop-udtryk

Gentager sætningerne mellem Do og Loop sætningerne så længe betingelsen er True eller indtil betingelsen bliver True.

Syntaks

Do [{While | Until} condition = True]

sætningsblok

[Exit Do]

sætningsblok

Loop

eller

Do

sætningsblok

[Exit Do]

sætningsblok

Loop [{While | Until} condition = True]

Parametre/Elementer

Condition: En sammenligning, numerisk eller strengudtryk, som evaluerer til enten True eller False.

Sætningsblok: Sætninger som du vil gentage mens eller indtil betingelsen er True.

Sætningen Do...Loop udfører en løkke så længe, eller indtil, en bestemt betingelse er True. Betingelsen for at afslutte løkken skal indtastes enten efter Do-sætningen eller efter Loop-sætningen. Følgende eksempler er gyldige kombinationer:

Syntaks

Do While condition = True

...sætningsblok

Loop

Sætningsblokken mellem Do While og Loop-sætningerne bliver gentaget så længe betingelsen er True.

Do Until condition = True

...sætningsblok

Loop

Sætningsblokken mellem Do Until og Loop-sætningerne bliver gentaget så længe at betingelsen er False.

Do

...sætningsblok

Loop While condition = True

Sætningsblokken mellem Do og Loop-sætningerne gentages så længe betingelsen er True.

Do

...sætningsblok

Loop Until condition = True

Sætningsblokken mellem Do og Loop-sætningerne gentages indtil betingelsen er True.

Brug sætningen Exit Do til ubetinget at afslutte løkken. Du kan tilføje denne sætning hvor som helst i en Do...Loop sætning. Du kan også definere en afslutningsbetingelse ved at bruge strukturen If...Then som følger:

Do...

sætninger

If condition = True Then Exit Do

sætninger

Loop...

Eksempel

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