Esta documentación está archivada y no tiene mantenimiento.

Ciclos Do (sintaxis Basic)

Un ciclo Do se puede usar para ejecutar un bloque de enunciados fijo, una cantidad infinita de veces.

4 tipos diferentes de ciclos Do

Tipo de ciclo Do Explicación Ejemplo
Do While … Loop El ciclo Do While ... Loop evalúa la condición y si ésta es verdadera, entonces evalúa los enunciados que siguen a la condición.

Al terminar de hacer esto, evalúa nuevamente la condición y si ésta es verdadera, vuelve a evaluar los enunciados.

Continúa repitiendo este proceso hasta que la condición sea falsa.

Do While condition
   statements
Loop
Do Until ... Loop El ciclo Do Until ... Loop es similar al ciclo Do While ... Loop, excepto que éste sigue evaluando los enunciados hasta que la condición es verdadera en lugar de hacerlo mientras está es verdadera.
Do Until condition
   statements
Loop
Do ... Loop While El ciclo Do ... Loop While evalúa los enunciados solamente una vez.

Luego evalúa la condición y si ésta es verdadera, evalúa nuevamente los enunciados. Este proceso continúa hasta que la condición sea falsa.

Do
   statements
Loop While condition
Do ... Loop Until Similar al ciclo Do ... Loop While excepto que evalúa los enunciados hasta que la condición sea verdadera.
Do
   statements
Loop Until condition
Nota   Los ciclos Do admiten un enunciado Exit Do para salir inmediatamente del ciclo. La expresión Exit Do es similar a Exit For en los ciclos For/Next.

Do While ... Ejemplo de fórmula de ciclo

El siguiente ejemplo busca la primera repetición de un dígito en una cadena de entrada. Si encuentra un dígito, devuelve su posición; de lo contrario, devuelve -1. En este caso, la cadena de entrada se establece explícitamente en una constante de cadena, pero podría establecerse igualmente en un campo de base de datos de tipo de cadena.

Por ejemplo, para la cadena de entrada, "The 7 Dwarves", la fórmula devuelve 5, que es la posición del dígito 7.

Dim inString
inString = "The 7 Dwarves"
Dim i, strLen
i = 1
strLen = Len (inString)
formula = -1
Do While i <= strLen And formula = -1
   Dim c As String
   c = Mid (inString, i, 1)
   If IsNumeric (c) Then formula = i
   i = i + 1
Loop

Vea también

Ciclos While (sintaxis Basic)

Mostrar: