VB DemoDoLoop

 Module DemoDoLoop

    'Buka DemoDoLoop.vbproj

    Sub Main()

        Dim a As Integer

        a = 1  'inisialisasi

        Do

            Debug.Print(a & " " & vbNullChar)

            a = a + 1  'iterasi

        Loop While (a <= 10)

    End Sub

End Module