Do, While y Do While

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim variable1 As Integer = 0

        'CICLO DO
        Do
            MsgBox("Ciclo do =" + variable1.ToString)
            variable1 += 1                                  'Este ciclo incrementará ell valor de la variable mientras no sea mayor a 3.
        Loop While variable1 < 3


        variable1 = 0  'Reiniciamos la variable para el siguiente ciclo.


        'CICLO DO WHILE
        Do While variable1 < 3
            MsgBox("Ciclo DoWhile = " + variable1.ToString)  'Este ciclo incrementará ell valor de la variable mientras no sea mayor a 3.
            variable1 = variable1 + 1
        Loop


        variable1 = 0   'Reiniciamos la variable para el siguiente ciclo.


        'CICLO WHILE
        While variable1 < 3
            MsgBox("Ciclo While = " + variable1.ToString)    'Este ciclo incrementará ell valor de la variable mientras no sea mayor a 3.
            variable1 = variable1 + 1
        End While

    End Sub
End Class

do while

La Coruña, España Correo contacto@pc-solucion.es