Module
Contents
Index 🔎︎

# Do...Loop Statement

Repite les instrucciones qu'haya ente Do y Loop mientres la condición seya cierta o hasta que la condición resulte ser cierta.

## Sintaxis

Do [{While | Until} condición = cierta]

bloque d'instrucciones

[Exit Do]

bloque d'instrucciones

Loop

o

Do

bloque d'instrucciones

[Exit Do]

bloque d'instrucciones

Loop [{While | Until} condición = cierta]

## Parámetros/Elementos

Condición: Una comparanza, espresión numbérica o de cadena, que s'evalúa como cierta o falsa.

Bloque d'instrucciones: Instrucciones que se deseye repitir mientres o hasta que la condición resulte ser cierta.

La instrucción Do...Loop executa un bucle mientres o hasta qu'una condición concreta seya cierta. La condición pa salir del bucle tien d'introducise siguiendo les intrucciones de Do o Loop. Los exemplos siguientes son combinaciones válides:

## Sintaxis

Do While condición = cierta

...bloque d'instrucciones

Loop

El bloque d'instrucciones asitiáu ente Do While y Loop repitir mientres la condición siga siendo cierta.

Do Until condición = cierta

...bloque d'instrucciones

Loop

El bloque d'instrucciones asitiáu ente Do Until y Loop repitir mientres la condición seya falsa.

Do

...bloque d'instrucciones

Loop While condición = cierta

El bloque d'instrucciones asitiáu ente Do y Loop repitir mientres la condición siga siendo cierta.

Do

...bloque d'instrucciones

Loop Until condición = cierta

El bloque d'instrucciones asitiáu ente Do y Loop repitir hasta que la condición seya cierta.

La instrucción Exit Do utilizar pa finar el bucle incondicionalmente. Esta instrucción pue amestar en cualesquier parte d'una estructura Do...Loop. Tamién pue definir una condición de salida utilizando la estructura If...Then del mou siguiente:

Do...

instrucciones

If condición = cierta Then Exit Do

instrucciones

Loop...

## Exemplu

    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