Сортировка массива по убыванию - VB (63022)

Формулировка задачи:

Началоприьлизительно такое. Надо отсортировать массив способом с наименьшим кол-вом прохождений цикла. Объяснили так: нужно найти сразу наибольшее и наименьшие числа, поставить их в начало и конец соответственно. А среди оставшихся чисел массива продолжать тоже самое.

Label1.Caption = " "
Label2.Caption = Label1.Caption
Label1.Font.Size = 18
Label2.Font.Size = Label1.Font.Size
Dim massive(9) As Long, i As Integer, J As Integer, N As Integer, Tmp As Double, r As Integer, k As Integer
Randomize (Time)
For i = 0 To 9
massive(i) = Rnd() * 10
Next i
For i = 0 To 9
Label1.Caption = Label1.Caption & massive(i) & Space(3)
Next i

Решение задачи: «Сортировка массива по убыванию»

textual
                            Листинг программы 
                        

                            Dim indM, k, i, arr() As Single
n = 5
ReDim arr(1 To n)
arr(1) = 4
arr(2) = -3
arr(3) = 0
arr(4) = 3
arr(5) = -10
Dim Min As Single
For i = 1 To n - 1
 Min = arr(i)
 k_min = i
  For j = i + 1 To n
  If arr(j) < Min Then
   Min = arr(j)
   k_min = j
  End If
  Next
  arr(k_min) = arr(i)
  arr(i) = Min
Next
                        