Utilice una estructura

Utilice una estructura Do...Loop cuando desee repetir un conjunto de instrucciones un número indefinido de veces, hasta que se satisfaga una condición. Si desea repetir las instrucciones un número fijo de veces, la Instrucción For...Next es normalmente una opción mejor.

La estructura Do...Loop proporciona mayor flexibilidad que la Instrucción While...End While (Visual Basic) porque permite elegir si se debe finalizar el bucle cuando condition deja de ser True o cuando es True por primera vez. También le permite probar condition al principio o al final del bucle.

Repite un bloque de instrucciones mientras una condición Boolean sea True o hasta que la condición se convierta enTrue.

Do { While | Until } condition

[ statements ]

[ Exit Do ]

[ statements ]

Loop

-or-

Do

[ statements ]

[ Exit Do ]

[ statements ]

Loop { While | Until } condition

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Ciclos do-loop

Dim INTCUENTA As Integer 'variable para contar

Dim INTTABLA As Integer 'variable para la tabla

Dim STRPASSWORD As String 'para el password

'inicializo la cuenta

INTCUENTA = 1

INTTABLA = 7

'Ciclo do

Do Until INTCUENTA > 10

Debug.Print(INTTABLA * INTCUENTA)

INTCUENTA = INTCUENTA + 1

Loop

'Inicializar la cuenta

INTCUENTA = 1

Do While INTCUENTA < 11

Debug.Print(INTTABLA * INTCUENTA)

INTCUENTA = INTCUENTA + 1

Loop

'Inicializo cuenta

INTCUENTA = 1

Do

Debug.Print(INTTABLA * INTCUENTA)

INTCUENTA = INTCUENTA + 1

Loop While INTCUENTA > 11

'iniciallizo cuenta

INTCUENTA = 1

INTTABLA = CInt(InputBox("da la tabla a desplegar"))

Do

Debug.Print(INTTABLA * INTCUENTA)

INTCUENTA = INTCUENTA + 1

Loop While INTCUENTA < 11

Do

STRPASSWORD = InputBox("da la clave para continuar")

Loop Until STRPASSWORD = "salida"

End Sub

End Class

...