Juyungo

El bucle WHILE...WEND sirve para realizar un tipo de bucle muy utilizado en programación que es el bucle Mientras, que se ejecuta mientras que se cumpla una condición. A diferencia del bucle FOR, éste se utiliza cuando no conocemos el número de iteraciones que tenemos que realizar.

El bucle funciona de la siguiente manera. Cuando se va a ejecutar, evalúa una expresión y compreba que esta daresultados positivos. Si es así, ejecuta el cuerpo del bucle (las sentencias que siguen hasta el WEND), en caso contrario se sale. Podemos ver la sintaxis a continuación.
WHILE (condicion)
          sentencias
          ....
WEND |
Ahora vamos a ver un ejemplito sobre este bucle, que realiza una cuenta número a número hasta llegar al 13. En cada iteración del bucle muestra en una ventanitael número actual y ofrece la posibilidad de cambiarlo, ya que la ventanita es una ventana Input, que ofrece la oportunidad de cambiar el valor y devuelve ese valor, cambiado o no. Como decíamos, si dejamos el ejemplo sin tocar nada, cuenta hasta 13, pero si introducimos un número en el inputbox continúa la cuenta por el número introducido. Si el número introducido es mayor que 13 también se saledel bucle.
option explicit
dim a
a = 0
WHILE (a < 13)
   a = a + 1
   a = inputbox("Dame un valor entero, please","Petición de número",a,200,100)
WEND |

Bucles (For Next Step – While Wend – Do Loop)
Los bucles son procedimientos repetitivos, son estructuras de programación que permiten
realizar varias veces un mismo bloque de instrucciones, hasta que se cumpla una condición quetermina
este bucle.
For – Next - Step
Supongamos que debemos imprimir los números impares del 1 al 100. en este caso
tenemos un valor inicial (1), un valor final (100) y un intervalo (2) que me indicara cuantos pasos debo
hacer antes de ejecutar la instrucción. Esto quedaría así
For A = 1 To 100 Step 2
Print A
Next
La instrucción NEXT hace que el control del programa vuelva al FOR másinmediato. En si la
instrucción le asigna valores a la variable A, empezando por el 1, luego el 3 (dio 2 pasos), luego el 5 y
asi hasta llegar al 100. ¿Cuál es el último numero impreso? _______________
Pero hay otras maneras, para ello existe una serie de instrucciones que funcionan de manera
similar, veamos otros ejemplos con más instrucciones para hacer bucles.
While - Wend
La instrucción WHILE -WEND ya casi no se usa, porque han creado sustitutos más versátiles,
pero igualmente lo explicamos, su uso sería:
A = 1
While A <= 100
Print A
A = A + 2
Wend
El procedimiento se lee de la siguiente forma.
• Almacenar el numero 1 en la variable A
• Mientras A sea Menor o igual a 10 hacer lo siguiente
• Imprimir en pantalla la variable A
• Sumarle a la variable A un entero (contador)• Volver hasta que Mientras sea falso.
WHILE <expresión>
<Instrucciones si se cumple>
WEND
Es decir, MIENTRAS la expresión sea cierta, repite todo lo que haya hasta el WEND.
Hay que tener cuidado con esto de que la expresiones evalúan el cero como FALSO y cualquier
otro valor como VERDADERO, por ejemplo:
Do- Loop
La instrucción DO LOOP es la nueva versión, mas versátil, que lainstrucción antes vista
Do
Print "Hola Mundo"
Loop
Pero la "gracia" de este tipo de bucle es que podemos usar dos nuevas cláusulas para evaluar
cuanto durará el bucle. La primera es WHILE y funciona igual que en WHILE/WEND
A = 1
Do While A <= 100
Print A
A = A + 2
Loop
La ventaja es que WHILE se puede poner tanto después de DO como a continuación de LOOP.
Si lo usamos como DO WHILE<expresión>... la forma de actuar es igual que WHILE/WEND, es decir,
se evalúa la expresión y sólo en caso de que sea cierta, se ejecuta lo que está dentro del bucle, es decir
entre DO y LOOP.
Pero si evaluamos la expresión en LOOP, se ejecutará todo lo que hay tras el DO, como mínimo
una vez y se seguirá repitiendo si se cumple la condición. De esta forma, como he dicho, se ejecutará...