Ukaz Do...Loop
Ponavlja ukaze med ukazoma Do in Loop, dokler je pogoj resničen, ali pa dokler se pogoj ne uresniči.
Skladnja
Do [{While | Until} pogoj = True]
blok ukazov
[Exit Do]
blok ukazov
Loop
ali
Do
blok ukazov
[Exit Do]
blok ukazov
Loop [{While | Until} pogoj = True]
Parametri/elementi
Pogoj: primerjava, numeričen izraz ali niz, katerega vrednost je Res ali Ne res.
blok ukazov: Ukazi, ki jih želite ponavljati, dokler je ali dokler ni pogoj resničen.
Ukaz Do...Loop izvaja zanko toliko časa, dokler se navedeni pogoj ne uresniči. Pogoj za konec zanke moramo vnesti za ukazom Do oziroma za ukazom Loop. Naslednji primeri so veljavne kombinacije:
Skladnja
Do While pogoj = True
... blok ukazov
Loop
Blok ukazov med Do While in Loop ukazi se izvaja toliko časa, dokler je pogoj resničen oz. izpolnjen.
Do Until pogoj = True
... blok ukazov
Loop
Blok ukazov med Do Until in Loop ukazi se izvaja toliko časa, dokler pogoj ni izpolnjen.
Do
... blok ukazov
Loop While pogoj = True
Blok ukazov med Do in Loop ukazi se izvaja toliko časa, dokler je pogoj res.
Do
... blok ukazov
Do Until pogoj = True
Blok ukazov med Do in Loop ukazi se izvaja toliko časa, dokler se pogoj ne uresniči.
Če želite zanko brezpogojno zapustiti, uporabite ukaz Exit Do. Ta ukaz lahko uporabite kjerkoli v ukazu Do...Loop. Pogoj lahko tudi definirate s pomočjo strukture If...Then, kot kaže tale primer:
Do...
ukazi
If pogoj = True Then Exit Do
ukazi
Loop...
Primer
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