Module Module1
Sub Main()
Dim intArray As Array = Array.CreateInstance(GetType(Int32), 5)
intArray.SetValue(12, 0)
intArray.SetValue(11, 1)
intArray.SetValue(27, 2)
intArray.SetValue(73, 3)
intArray.SetValue(32, 4)
Array.Sort(intArray)
PrintArray(intArray)
End Sub
Public Sub PrintArray(arr As Array)
Dim cols As Integer = arr.GetLength(arr.Rank - 1)
For Each o As Object In arr
Console.Write(" {0}", o)
Next o
Console.WriteLine()
End Sub
End Module
' run:
'
' 11 12 27 32 73