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

Option Explicit
 
 
Private Sub Комманда1_Click()
Cls
Dim n, m
n = 10
m = 10
Dim A(10, 10)
Dim Nmin
Dim MIN
Dim K
Dim I, J
For I = 0 To 10
    For J = 0 To 10
A(I, J) = Int(90 * Rnd + 9)
Print A(I, J);
Next J
Print
Next I
 
Print
Print
 
        For I = 0 To n
            For J = 0 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 = 0 To n
            For J = 0 To m
Print A(I, J);
            Next J
            Print
        Next I
 
 
End Sub

И как ваще на вижле вывести матрицу

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

Private Sub Комманда2_Click()
Dim STROKA As String
Dim BUKVA As String
Dim M() As String
Dim ITOG
 
STROKA = LCase(InputBox("Введите строку", "Ввод данных", "Наша маша громко плачет. Уронила в речку мячик"))
BUKVA = LCase(InputBox("Введите букву", "Ввод данных", "а"))
M = Split(STROKA, BUKVA)
 
ITOG = " В заданной строке: " & vbCrLf _
& STROKA & vbCrLf _
& "находится  " & Val(UBound(M)) & " букв " & BUKVA
MsgBox ITOG, 64, "Вывод результата"
 
End Sub