ACTIVIDAD PARA CUARTO SEMESTRE

Martes 3 de Mayo del 2011
Pag.265
TEMA:
EL BUCLE While…Wend

La estructura repetitiva While (Mientras) es aquella en la que el número de iteraciones no se conoce por anticipado y el cuerpo del bucle se repite mientras se cumple una determinada condición. La forma de utilizar este bucle es similar al bucle Do…Loop. La única diferencia es, que no es posible evaluar la condición después de la primera ejecución del bucle.

Su formato es:

While  condicion
Instrucciones…
Wend
Mientras


Ejemplo:

En el siguiente ejemplo mostraremos como utilizar un bucle While…Wend para imprimir el cuadrado de los números del 1 al 20 en una caja de texto.
Dim Numero As Integer 'Variable para generar de forma incrementada los números del 1 al 200.
Numero = 0
While Numero < 20 'Mientras el numero sea menor que 20 se repite.
Numero = Numero + 1 'Generamos los números uno por uno en cada repetición.
'Almacenamos el número y su cuadrado al lado en cada línea de una caja de texto.
txtContenido.Text = txtContenido.Text & Numero & " El cuadrado es: " & Numero ^ 2 & Chr(13) & Chr(10)
 Wend 'Repetimos.

Cada vez que el bucle se repita la variable Numero se incrementa en uno para obtener el número siguiente. Mientras el número generado sea menor que 20 se imprimirá en la caja de texto el número y su cuadrado al lado.
 condición sea verdadera
 Instrucciones…
Repite
Las reglas de funcionamiento de este bucle son las siguientes reglas:
1. La condición se evalúa antes y después de cada ejecución del bucle. Si la condición es verdadera, se ejecuta el bucle, y si es falsa, el bucle no se ejecuta.
2. Si la condición se evalúa a falso cuando se ejecuta el bucle por primera vez, el cuerpo del bucle no se ejecutará nunca. En este caso se dice que el bucle se ha ejecutado cero veces.
3. Mientras la condición sea verdadera el bucle se ejecutará. Esto significa que el bucle se ejecutará indefinidamente a menos que "algo" en el interior del bucle modifique la condición haciendo que su valor pase a falso.