While...Wend

Un ciclo while tiene una condición del ciclo, una expresión lógica que controla la secuencia de repetición.

La posición de esta condición del ciclo es delante del cuerpo del ciclo y significa que un ciclo while es un ciclo de preverificación de modo que cuando se ejecuta el mismo, se evalúa la condición antes de que se ejecute el cuerpo del ciclo.

Sintaxis

WHILE Expresión-condicion

….’instrucciones

WEND

Aquí se ejecuta el (las) orden (es) mientras la condición es verdadera; al momento de ser falsa termina el ciclo.

     Si la condición es falsa la primera vez nunca se

     ejecuta(n)  el (las) orden (es).

Ejemplos:

Ejemplo I: 

Programa que pide 10 números y calcula y muestra la suma de todos los que fueron pares.

Dim suma As Integer = 0

Dim cont As Integer = 10

Dim numero As Integer

Print "Programa que pide 10 números y calcula y muestra la suma de todos los que fueron pares."

While (cont > 0)

Print "Dame numero :"

Input numero

If numero % 2 = 0 Then suma += numero

cont -= 1

Wend

Print "Suma de numeros pares, es:", suma

Ejemplo II : Obtener el promedio de calificaciones de un grupo de 20 estudiantes

Dim total, contador, calif As Integer

Dim promedio As Float

total = 0

contador = 1

Print "Obtener el promedio de calificaciones de un grupo de 20 estudiantes"

While (contador <= 20)

Print "Dame calificacion:"

Input calif

total += calif

contador += 1

Wend

promedio = total / 20

Print "El promedio es: ", promedio

Nota:
Este bucle es ideal para usarlo cuando no sabemos cuantas veces se tienes que repetir el bucle, ya que disponemos de una comprobación para salir de él. Por ejemplo en el ejemplo 1º la condición que se comprobraba antes de repetir el bucle era: "cont > 0"

Para más información:
http://gambaswiki.org/wiki/lang/while?l=es&nh
http://gambaswiki.org/wiki/lang/wend?l=es&nh


Código fuente de los ejemplo: Ejemplos