Contido
Índice 🔎︎

# 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

Bucle

ou

Do

bloque 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

Bucle

O 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

Bucle

O 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 = verdadeira

O 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 = verdadeira

O 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 Do

instrució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