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)
console.WriteLine(n(i))
end if
End Sub
End Module