ACTIVIDA PARA CUARTO SEMESTRE

MIERCOLES 04/05/2011
Pag. 266
TEMA:
EL BUCLE While…Wend
Ejemplo 2:

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 20.
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. While…Wend para imprimir el cuadrado de los números del 1 al 20 en una caja de texto.
En el siguiente ejemplo mostraremos como utilizar un bucle