Imports System
Public Class Test
Public Shared Sub Main()
Dim array As Integer() = New Integer() {8, 3, 9, 1, 5, 4}
Array.Sort(array)
Array.Reverse(array)
For Each n As Integer In array
Console.WriteLine(n)
Next
End Sub
End Class
' run
'
' 9
' 8
' 5
' 4
' 3
' 1
'