VB DemoDoWhile

 Module DemoDoWhile

    'Buka DemoDoWhile.vbproj

    Sub Main()

        Dim a As Integer

        a = 1  'inisialisasi

        Do While (a <= 10)

            Debug.Print(a & " " & vbNullChar)

            a = a + 1 'iterasi

        Loop

    End Sub

End Module