Переупорядочить массив по убыванию - VB

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

Помогите никак не могу доделать. Не могу вывести отсортированный массив в MSFlexGrid2 Элементы массива упорядочены по возрастанию элементов в столбцах. Переупорядочить массив по убыванию его элементов в столбцах.

Dim Am(10, 10) As Double
Dim av() As String
Public n, m As Integer
Private Sub Command1_Click()
  n = Text1
  m = Text2
  If n > 10 Or m > 10 Or (n * m) > 25 Then
  MsgBox "ГђГ*Г§Г¬ГҐГ°Г*Г®Г±ГІГј ГЇГ® ГЄГ*Г¦Г¤Г®Г¬Гі ГЁГ§Г¬ГҐГ°ГҐГ*ГЁГѕ Г*ГҐ ГЎГ®Г«ГјГёГҐ 10, ГўГ±ГҐГЈГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*ГҐ ГЎГ®Г«ГҐГҐ 15"
  End
  End If
End Sub
 
Private Sub Command4_Click()
  av = Split(Text3, " ")
  MSFlexGrid1.Rows = n + 1
  MSFlexGrid1.Cols = m + 1
  MSFlexGrid1.Row = 0
  For i = 0 To m
    MSFlexGrid1.Col = i
    MSFlexGrid1.ColWidth(i) = 700
    MSFlexGrid1.Text = i
  Next
  MSFlexGrid1.Col = 0
  MSFlexGrid1.ColWidth(0) = 300
  For i = 0 To n
    MSFlexGrid1.Row = i
    MSFlexGrid1.Text = i
  Next
  k = 0
  For i = 0 To n - 1
  MSFlexGrid1.Row = i + 1
    For j = 0 To m - 1
      Am(i, j) = Val(av(k))
      MSFlexGrid1.Col = j + 1
      MSFlexGrid1.Text = Am(i, j)
      k = k + 1
  Next
Next
End Sub
 
Private Sub Command3_Click()
MSFlexGrid2.Rows = n + 1
  MSFlexGrid2.Cols = m + 1
  MSFlexGrid2.Row = 0
  For i = 0 To m
    MSFlexGrid2.Col = i
    MSFlexGrid2.ColWidth(i) = 700
    MSFlexGrid2.Text = i
  Next
  MSFlexGrid2.Col = 0
  MSFlexGrid2.ColWidth(0) = 300
  For i = 0 To n
    MSFlexGrid2.Row = i
    MSFlexGrid2.Text = i
Next
For i = 1 To n
    'Max = 0
    For j = 1 To m
        f = j
        Do While f > 0
            If Am(i, f) < Am(i, f - 1) Then
                t = Am(i, f)
                Am(i, f) = Am(i, f - 1)
                Am(i, f - 1) = t
                f = f - 1
            Else
                Exit Do
            End If
        Loop
    Next
Next
'Г‚Г»ГўГ®Г¤
For i = 1 To n
    For j = 1 To m
        MSFlexGrid2.Text = Am(i, j)
    Next
Next
End Sub
Private Sub Command2_Click()
End
End Sub

Друзья неужели никто не знает ?

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

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

                            Dim a(100, 100) As Integer
Dim n, m As Integer
Private Sub Command1_Click()
n = Val(Text1)
m = Val(Text2)
For i = 1 To n
For j = 1 To m
    a(i, j) = Int(Rnd * 30)
Picture1.Print a(i, j);
Picture2.Print a(i, j);
Next
Picture1.Print
Picture2.Print
Next
End Sub
 
Private Sub Command3_Click()
Picture2.Cls
For i = 1 To n
For j = 1 To m
If a(i, j) Mod 2 <> 0 Then a(i, j) = 0
Picture2.Print a(i, j)
Next k
Next j
Picture2.Print
Next
End Sub
                        