Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer(11) {}
Dim rnd As Random = New Random()
For i As Integer = 0 To arr.Length - 1
arr(i) = rnd.[Next](1, 100)
Next
Array.Sort(arr)
For Each n As Integer In arr
Console.Write("{0} ", n)
Next
End Sub
End Class
' run:
'
' 7 21 23 25 51 53 72 77 82 85 93 98
'