VB DemoDoWhileDoLoop

 Module DemoDoWhileDoLoop

    'Buka DemoDoWhileDoLoop.vbproj

    Sub Main()

        Dim a As Integer

        'Contoh Do While/Loop

        a = 6

        Do While (a < 5)

            Debug.Print("Do While..Loop - " & a)

            a = a + 1

        Loop

        'Contoh Do/Loop While

        a = 6

        Do

            Debug.Print("Do..Loop While - " & a)

            a = a + 1

        Loop While (a < 5)

    End Sub

End Module