lunes, 11 de mayo de 2009

Ciclo do while | until

Do { While Until } condición
Codigo
Loop

Por supuesto, no podemos utilizar “While” y “Until” a la vez. En esta forma del bucle, la condición se evalúa al comienzo del mismo. En el caso de utilizar la opción “While”, el bucle se repetirá mientras que la condición sea verdadera. Podemos escribir el ejemplo anterior utilizando esta posibilidad:

Do While edad <> 0
edad = edad - 1
Loop

También podríamos haber resuelto el problema con el uso de “Until”:

Do Until edad = 0
edad = edad - 1
Loop
En este caso, el bucle se repetirá hasta que edad sea igual a cero.

La tercera forma que puede adoptar el bucle que estamos analizando es la siguiente:
Do
Codigo
Loop { While Until } condición

Como puede verse, se ha delegado la capacidad de evaluar la condición al final del bucle. Esto tiene la particularidad de permitir que el grupo de instrucciones existentes en el interior del bucle se ejecuten al menos una vez, independientemente de que la condición a evaluar sea o no verdadera.
Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop Until edad = 0

O así:

Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop While edad <> 0