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