Сортировка одном. массива

Подробности

Автор: Смирнов Л.

{
Сортировка одномерного массива. Консольное приложение.
Выполнено Смирновым Л.
}

Module Module1
    Dim rand As New Random
    Dim mas(100) As Integer
    Sub zap()
        For i = 0 To UBound(mas)
            mas(i) = rand.Next(50)
            Console.WriteLine(i & " = " & mas(i))
        Next
    End Sub
    Sub Main()
        Dim a, b, c As Integer
        zap()
        For i = UBound(mas) - 1 To 2 Step -1
            For a = 1 To UBound(mas) - 1
                If mas(a) > mas(a + 1) Then
                    b = mas(a)
                    mas(a) = mas(a + 1)
                    mas(a + 1) = b
                End If
            Next
        Next
        For c = 0 To UBound(mas)
            Console.WriteLine(c & " = " & mas(c))
        Next
        Console.ReadLine()
    End Sub
End Module