IBM Lotus Symphony
|
Repite las instrucciones que haya entre Do y Loop mientras la condición sea cierta o hasta que la condición resulte ser cierta.
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]
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:
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...
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