VisualBasic - Ciclo While-Wend
Make your own free website on Tripod.com
En estos ciclos, (también llamados bucles) "While - Wend" la cantidad de veces que se repiten las sentencias dentro del ciclo dependen exclusivamente de que se verifique como válida la condición de ese ciclo. A esto se lo llama condición del ciclo y se estructura de la siguiente manera:

While (condición)
---------
---------
Wend
Veamos un ejercicio simple
Private Sub ej_1_Click()
a = 1
While a < 5
Print a
a = a + 1
Wend
End Sub

Private Sub ej_2_Click()
a = 4
While a > 0
Print a
a = a - 1
Wend
End Sub

Private Sub ej_1_Click()
For a = 1 To 4
Print a
Next
End Sub

Private Sub ej_2_Click()
For a = 4 To 1 Step -1
Print a
Next
End Sub

OtraForma

Ejercicio:
Teniendo $1.000 se desean comprar productos que valen $7 cada uno ¿Cuantos productos puedo comprar?

Private Sub btnejercicio_Click()
While Total < 1000 - 6
Total = Total + 7
Cantidad = Cantidad + 1
Wend
Print Total, Cantidad
End Sub
Ahora vamos a entender un poco más a fondo qué son Condiciones y para qué nos sirven.