VB.Net Tutorial/Collections/Sort

Creates random numbers and sorts them using bubble sort

Module Tester
   Sub Main()
      Dim array As Integer() = New Integer(9) {}
      Dim randomNumber As Random = New Random()
      Dim i As Integer

      For i = 0 To array.GetUpperBound(0)
         array(i) = randomNumber.Next(100)
         Console.Write(array(i)& " ")
      Next
      BubbleSort(array)
      Console.WriteLine("")
      For i = 0 To array.GetUpperBound(0)
         Console.Write(array(i)& " ")
      Next
   End Sub 
   Sub BubbleSort(ByVal sortArray As Integer())
      Dim pass, i As Integer
      For pass = 1 To sortArray.GetUpperBound(0)
         For i = 0 To sortArray.GetUpperBound(0) - 1
            If sortArray(i) > sortArray(i + 1) Then
               Swap(sortArray, i)
            End If
         Next
      Next
   End Sub " BubbleSort
   Sub Swap(ByVal swapArray As Integer(), _
      ByVal first As Integer)
      Dim hold As Integer
      hold = swapArray(first)
      swapArray(first) = swapArray(first + 1)
      swapArray(first + 1) = hold
   End Sub " Swap
End Module

11 18 28 60 97 59 23 23 25 14
11 14 18 23 23 25 28 59 60 97 "