Переставить элементы в каждой строке матрицы по возрастанию - VB

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

Люди, помогите! Завтра зачет, а я не знаю,как решить 2 задачи. Заранее благодарна! 1. В матрице произвольной размерности (размерность матрицы определяется 2-мя способами по выбору пользователя) переставить элементы в каждой строке по возрастанию. Исходную и новую матрицы поместить на форму. 2. Написать программу подсчета количества вхождений произвольной буквы в текстовой строке.

Решение задачи: «Переставить элементы в каждой строке матрицы по возрастанию»

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

                            Option Explicit
Dim A()
Dim N, M
Dim K
Dim I, J
 
Private Sub Комманда1_Click()
Cls
N = InputBox("Скоко будет строк?", "Ввод данных", 10)
M = InputBox("Скоко будет столбцов?", "Ввод данных", 10)
ReDim A(1 To N, 1 To M)
 
 
For I = 1 To N
    For J = 1 To M
A(I, J) = Int(90 * Rnd + 9)
Print A(I, J);
Next J
Print
Next I
 
Print
Print
 
 
Dim Nmin
Dim MIN
 
        For I = 1 To N
            For J = 1 To M
                MIN = Abs(A(I, J))
                Nmin = J
                    For K = J + 1 To M
                         If Abs(A(I, K)) > MIN Then Nmin = K:   MIN = Abs(A(I, K))
                   Next K
                    A(I, Nmin) = A(I, J)
                    A(I, J) = MIN
            Next J
        Next I
 
        For I = 1 To N
            For J = 1 To M
Print A(I, J);
            Next J
            Print
        Next I
 
End Sub
                        