Gjør ... Loop Statement
Gjentar uttrykkene mellom Do og Loop-uttrykket mens betingelsen er Sann eller til betingelsen blir Sann.
Do {While | Until} condition = True
' Do While: Uttrykksblokken gjentas så lenge betingelsen er sann
' Gjør til: Uttrykksblokken gjentas så lenge betingelsen er Usann
statements
[Exit Do]
statements
Loop
Do
statements
[Exit Do]
statements
' Loop While: Uttrykksblokken gjentas så lenge betingelsen er sann
' Loop Til: Uttrykksblokken gjentas til betingelsen er sann
Loop {While | Until} condition = True
Do...Loop-uttrykket kjører en loop så lenge, eller til, en viss betingelse er Sann. Betingelsen for å gå ut av loopen må angis etter enten Do- eller Loop-uttrykket. Eksemplene ovenfor er gyldige kombinasjoner.
tilstand: En sammenligning, numerisk eller grunnleggende uttrykk, som evalueres til enten Sann eller Usann.
Uttrykk: Uttrykk du vil gjenta mens eller til en betingelse er sann.
Bruk Exit Do-setningen for å avslutte loopen uten betingelser. Du kan legge til denne setningen hvor som helst i en Do...Loop-setning. Du kan også definere en utgangsbetingelse ved å bruke If...Then-strukturen som følger:
Do...
statements
If condition = True Then Exit Do
statements
Loop...
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