IBM Lotus Symphony


Instrucción Do...Loop [Ejecución]

Repite las instrucciones que haya entre Do y Loop mientras la condición sea cierta o hasta que la condición resulte ser cierta.

Sintaxis

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

bloque de instrucciones

[Exit Do]

bloque de instrucciones

Loop

o

Do

bloque de instrucciones

[Exit Do]

bloque de instrucciones

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

Parámetros/Elementos

Condición: Una comparación, expresión numérica o de cadena, que se evalúa como cierta o falsa.

Bloque de instrucciones: Instrucciones que se desee repetir mientras o hasta que la condición resulte ser cierta.

La instrucción Do...Loop ejecuta un bucle mientras o hasta que una condición concreta sea cierta. La condición para salir del bucle debe especificarse siguiendo las instrucciones de Do o Loop. Los ejemplos siguientes son combinaciones válidas:

Sintaxis

Do While condición = cierta

...bloque de instrucciones

Loop

El bloque de instrucciones situado entre Do While y Loop se repite mientras la condición siga siendo cierta.

Do Until condición = cierta

...bloque de instrucciones

Loop

El bloque de instrucciones situado entre Do Until y Loop se repite siempre que la condición sea falsa.

Do

...bloque de instrucciones

Loop While condición = cierta

El bloque de instrucciones situado entre Do y Loop se repite mientras la condición siga siendo cierta.

Do

...bloque de instrucciones

Loop Until condición = cierta

El bloque de instrucciones situado entre Do y Loop se repite hasta que la condición sea cierta.

La instrucción Exit Do se utiliza para finalizar el bucle incondicionalmente. Esta instrucción se puede agregar en cualquier parte de una instrucción Do... Loop. También puede definir una condición de salida utilizando la estructura If...Then de la manera siguiente:

Do...

instrucciones

If condición = cierta Then Exit Do

instrucciones

Loop...

Ejemplo

Sub EjemploDoLoop

Dim sArchivo As String

Dim sVíaAcceso As String

sVíaAcceso = "c:\"

sArchivo = Dir$( sVíaAcceso ,22)

If sArchivo <> "" Then

Do

MsgBox sArchivo

sArchivo = Dir$

Loop Until sArchivo = ""

End If

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas