Do...Loop Statement
Repite as instrucións existentes entre Do e Loop mentres a condición sexa verdadeira ou ata que o sexa.
Sintaxe
Do [{While | Until} condición = verdadeira]bloque de instrucións
[Exit Do]bloque de instrucións
Bucleou
Dobloque de instrucións
[Exit Do]bloque de instrucións
Loop [{While | Until} condición = verdadeira]Parámetros/Elementos
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:
Sintaxe
Do While condición = verdadeira...bloque de instrucións
BucleO bloque de instrucións entre Do While e Loop repítese mentres a condición siga a ser verdadeira.
Do Until condición = verdadeira...bloque de instrucións
BucleO bloque de instrucións entre Do Until e Loop repítese mentres a condición siga a ser falsa.
Do...bloque de instrucións
Loop While condición = verdadeiraO bloque de instrucións entre Do e Loop repítese mentres a condición siga a ser verdadeira.
Do...bloque de instrucións
Loop Until condición = verdadeiraO bloque de instrucións entre Do e Loop repítese ata que a condición sexa verdadeira.
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:
Do...instrucións
If condición = verdadeira Then Exit Doinstrucións
Loop...Exemplo
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