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