Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Ascend(1) or descend(0)?")

        Dim AD as integer

        do until AD = 1 or 0

        AD = console.ReadLine()

        loop

        Console.WriteLine("Please enter ten numbers to sort")

        Dim n(9) as integer

        for i as integer = 0 to 9

        console.ReadLine()

    next

    If AD = 1

        dim ascend as integer() = n

        array.Sort(n)

        for i as integer = 0 to 9

        console.WriteLine(n(i))

    next

end if

    End Sub

End Module