Сортировка массивов

Private Sub Command1_Click()
For i = 1 To n
    k = i: x = a(i)
    For j = i + 1 To n
        If a(j) > x Then
            x = a(j): k = j
        End If
    Next j
    a(k) = a(i): a(i) = x
Next i
For i = 1 To n
Print " "; a(i);
Next i
End Sub

Private Sub Command1_Click()
'объявляем:
'счетчики циклов
Dim i As Integer, j As Integer
Dim a() ' собственно иассив /пока без указания размерности/
Dim n As Integer 'и переменную для размерности массива
 
n = 5 'inputbox("n-?")'устанавливаем (5) или вводим размерность
ReDim a(n) ' переобъявляем массив с учетом размерности
For i = 1 To n  'в цикле по размерности
'генерируем или вводим эл.массива
a(i) = Int(Rnd * 20) 'inputbox("a(" & i & "-?")
Next i
 
For i = 1 To n - 1 'просматриваем все эл до предпоследнего
                   ' включительно (последний автоматом будет на месте
    k = i: x = a(i) 'запомним текущий эл и его индекс (номер)
    For j = i + 1 To n 'для него перебираем эл, следующие после
        'если найдем больший (меньший), то
        If a(j) > x Then ' If a(j) < x Then
            'запомним его значение и номер
            x = a(j): k = j
        End If
    Next j
    'после перебора всех последующих тот который запомнили последним
    'и есть наибольший (наименьший) /от i до n/
    'меняем местами текущий (i) и который определили (k)
    a(k) = a(i): a(i) = x
    
Next i
'вывод
For i = 1 To n
Print " "; a(i);
Next i
End Sub

Private Sub Command1_Click()
 
Dim i As Integer, j As Integer, m
Dim a()
Dim n As Integer, lb As String
 List1.Clear
n = 5
lb = "Это исходный массив:    "
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 20)
lb = lb & a(i) & "   "
Next i
 List1.AddItem lb
 List1.AddItem String(125, ".")
For i = 1 To n - 1
List1.AddItem String(125, " ") & "шаг: " & i
  List1.AddItem String(45, " ") & "               фиксируем  а(" & i & ")=" & a(i)
  List1.AddItem "запомним его значение " & a(i) & "   и его номер  " & i
    k = i: x = a(i)
   List1.AddItem "     с ним сравниваем: "
   
    For j = i + 1 To n
          List1.AddItem "                  a(" & j & ")=" & a(j)
 
        If a(j) > x Then ' If a(j) < x Then
           List1.AddItem "----->  " & a(j) & " > " & x & _
           "    !!!  значит   запомним  a(" & j & ")=" & a(j) & "   и его номер  " & j
 
            x = a(j): k = j
        End If
    Next j
    a(k) = a(i): a(i) = x
List1.AddItem String(115, "-")
List1.AddItem "фиксировали: а(" & i & ")=" & a(i) & "   запомннили: a(" & k & ")=" & x
   List1.AddItem "меняем их местами --- получаем массив:"
 
lb = ""
For m = 1 To n
lb = lb & a(m) & "   "
Next m
 List1.AddItem lb
 List1.AddItem String(125, ".")
Next i
 
List1.AddItem "": List1.AddItem "-----------  Все :)"
End Sub