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
Loopeller
Dosæ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
LoopSætningsblokken mellem Do While og Loop-sætningerne bliver gentaget så længe betingelsen er True.
Do Until condition = True...sætningsblok
LoopSætningsblokken mellem Do Until og Loop-sætningerne bliver gentaget så længe at betingelsen er False.
Do...sætningsblok
Loop While condition = TrueSætningsblokken mellem Do og Loop-sætningerne gentages så længe betingelsen er True.
Do...sætningsblok
Loop Until condition = TrueSæ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 Dosæ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