While

 

Naturaleza de la condición. Generalmente, la condición es el resultado de comparar dos valores, pero también puede ser cualquier expresión que da como resultado un valor Boolean (Tipo de datos, Visual Basic) (True o False). Esto incluye los valores de otros tipos de datos, como los numéricos, que han sido convertidos a valores de tipo Boolean.

Probar la condición. La instrucción While comprueba siempre la condición antes de iniciar el bucle. La ejecución en bucle continúa mientras el resultado de la condición sea True.

Número de iteraciones. Si condition es False cuando entra en el bucle por primera vez, no se ejecuta ni una vez.

Anidar bucles. Los bucles While se pueden anidar, colocando un bucle dentro de otro. También puede anidar tipos diferentes de estructuras de control entre sí. Para obtener más información, vea Estructuras de control anidadas.

Transferir fuera del bucle. Instrucción Exit (Visual Basic) transfiere el control inmediatamente a la instrucción que sigue a la instrucción End While. Puede desear salir de un bucle si detecta una condición que hace que sea innecesario o que no se pueda continuar la iteración, como un valor incorrecto o una solicitud de finalización. Puede incluir el número que desee de instrucciones Exit While en cualquier parte del bucle While. Exit While se utiliza a menudo tras evaluar alguna condición, por ejemplo en una estructura If...Then...Else.

Bucles sin fin. Un uso de Exit While consiste en comprobar una condición que puede ocasionar un bucle sin fin; es decir, un bucle que se puede ejecutar un número extremadamente elevado o infinito de veces. Si detecta este tipo de condición, puede utilizar Exit While para salir del bucle. Para obtener más información, vea Instrucción Do...Loop (Visual Basic).

Ejemplo

para este ejemplo suponemos el uso de un boton
'de comando "Command1" y una caja de
'texto "text1"
' la diferencia entre el while y el Do es que while checa
'primero la condicion y luego ejecuta el codigo, mientras
'que el Do ejecuta el codigo y luego checa la condicion
'El do puede ser muy util es muchas ocaciones.
'puedes copiar y pegar este codigo en un formulario
'de VB6.0 (habiendo creado los controles boton y caja de
'texto, claro esta!

Private Sub Command1_Click()
Dim b As Integer
b = 5
'cuerpo del while
While Not (b = 1)
b = b - 1
Text1 = b
Wend
'fin del while

'inicio del DO (es opcional)
Do
b = b + 1
Text1 = b

Loop While Not (b = 5)


 End Sub






VEASE TANBIEN EN YOUTUBE

http://www.youtube.com/watch?v=NEHlsbijzFI