Одномерные массивы

[Васильева Зинаида]

У меня еще вопросик...!!. Вот моя задачка- отсортировать массив по возрастанию, начиная с максимального элемента.
Я написала программу для нахождения max элемента, а вот теперь хочу его отсортировать насиная с max и не получается...

Option Explicit
Option Base 1
Dim n As Integer
Dim a() As Integer
Private Sub Command1_Click() // заполнение массива
Dim i As Integer
  n = Val(Text3.Text)
    ReDim a(n)
     Text1.Text = ""
    Randomize
    For i = 1 To n
     a(i) = -10 + Int(Rnd * 21)
      Text1.Text = Text1.Text + " " + Str(a(i))
        Next i
End Sub
Private Sub Command2_Click()
Dim max As Integer
Dim index As Integer
Dim t As Integer
Dim i As Integer
Dim k As Integer
Dim m As Integer
k = index
For i = 1 To n //нахождение max элемента
If a(i) > max Then
max = a(i)
index = i
End If
Next i
For i = k To n // и вот тут я хочу отсортировать массив.....
If a(i) < m Then
m = a(i)
t = k
End If
Next i
Text2.Text = Text2.Text + Str(max)
End Sub

[andrewpalkin]

Обычная , самая простая сортировка "Пузырьковая"

For i = 1 To n-1 
For j = 2 To n
If a(i) < a(j) Then
m = a(i)
a(i) = a(j)
a(j) = m
End If
Next j
Next i