Продублировать строку матрицы,

[rogge]

Дана матрица размера M х N. Продублировать строку матрицы,
содержащую ее максимальный элемент

Sub smth()
    Dim a() As Integer
    Dim jj, ii, n, m, i, j As Integer

      
      
m = CInt(InputBox("введите число m"))
n = CInt(InputBox("введите число n"))
ReDim a(1 To 10, 1 To 10) As Integer
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("A(" & i & " , " & j & " ) ")
Next j
Next i
jj = 1
ii = 1

For i = 1 To m
For j = 1 To n
If a(i, j) > a(ii, jj) Then
jj = j
ii = i
End If
  
Next j
Next i
For i = m + 1 To ii + 1 Step -1
For j = 1 To n
a(i, j) = a(i - 1, j)
Next j
Next i
m = m + 1

MsgBox a(i, j)
End Sub

Написал, но значение 0 выводит, не могли бы сказать,где ошибка

[Stilet]

Sub smth()
    Dim a() As Integer
    Dim jj, ii, n, m, i, j As Integer

      
jj = 1
ii = 1     
m = CInt(InputBox("введите число m"))
n = CInt(InputBox("введите число n"))
ReDim a(1 To 10, 1 To 10) As Integer
For i = 1 To m
 For j = 1 To n
  a(i, j) = InputBox("A(" & i & " , " & j & " ) ")
   If a(i, j) > a(ii, jj) Then
   jj = j
   ii = i
  End If
 Next j
Next i

ReDim a(1 To 11, 1 To 10) As Integer

For i = m To ii-1 step -1
 For j = 1 To n
     a(i+1, j)=a(i, j)
 Next j
Next i

И выводим массив
End Sub

Если не ошибаюсь.

[rogge]

все равно 0 выводит

Sub smth()
    Dim a() As Integer
    Dim jj, ii, n, m, i, j As Integer

      
jj = 1
ii = 1
m = CInt(InputBox("введите число m"))
n = CInt(InputBox("введите число n"))
ReDim a(1 To 10, 1 To 10) As Integer
For i = 1 To m
 For j = 1 To n
  a(i, j) = InputBox("A(" & i & " , " & j & " ) ")
   If a(i, j) > a(ii, jj) Then
   jj = j
   ii = i
  End If
 Next j
Next i

ReDim a(1 To 11, 1 To 10) As Integer

For i = m To ii - 1 Step -1
 For j = 1 To n
     a(i + 1, j) = a(i, j)
 Next j
Next i

MsgBox a(i, j)
End Sub