Do...Loop Statement
Ponavljaj naredbu između Do i Loop naredbi dok je uvjetistinit ili dok uvjet ne postane istinit
Syntax
Do [{While | Until} condition = True]
blok izraza
[Exit Do]
blok izraza
Petlja
or
Čini
blok izraza
[Exit Do]
blok izraza
Petlja [{While | Until} condition = True]
Parametri/elementi
Condition: A comparison, numeric or string expression, that evaluates either True or False.
Statement block: Statements that you want to repeat while or until the condition is True.
The Do...Loop statement executes a loop as long as, or until, a certain condition is True. The condition for exiting the loop must be entered following either the Do or the Loop statement. The following examples are valid combinations:
Syntax
Radi dok uvjet = True (istinit)
...blok izjava
Petlja
Blok naredbi između Do While i Loop naredbi ponavlja se dok je uvjet istinit
Radi dok uvijet =True (istina)
...blok izjava
Petlja
Blok naredbi između Do Until i Loop naredbi ponavlja se dok je uvjet netočan.
Čini
...blok izjava
Petlja While uvjet = True (istinit)
Blok naredbi između Do i Loop naredbi ponavlja se dok je uvjet istinit
Čini
...blok izjava
Petlja Until uvjet = True (istina)
Blok naredbi između Do i Loop naredbi ponavlja se dok uvjet ne bude istinit
Use the Exit Do statement to unconditionally end the loop. You can add this statement anywhere in a Do...Loop statement. You can also define an exit condition using the If...Then structure as follows:
Napravi...
naredbe
If condition = True Then Exit Do
naredbe
Petlja...
Primjer
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