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