Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента - VB

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

Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента. Размерность матрицы произвольная.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Введите количетсво строк матрицы")
n = InputBox("Введите количество столбцов матрицы")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "Исходный массив:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If i = j Then
max = a(i, i)
End If
   Next j
Next i
Print Spc(4); "Результат:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub

Подскажите, что не так?

Решение задачи: «Заменить значения элементов матрицы, расположенных на главной диагонали, значением её максимального элемента»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer, q As Integer
Dim a() As Single, max As Integer
m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГІГ±ГўГ® Г±ГІГ°Г®ГЄ Г¬Г*ГІГ°ГЁГ¶Г»")
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў Г¬Г*ГІГ°ГЁГ¶Г»")
ReDim a(1 To m, 1 To n)
For i = 1 To m
  For j = 1 To n
   a(i, j) = InputBox("a(" & i & " , " & j & ")")
 Next j
Next i
Print Spc(4); "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:"
For i = 1 To m
    Print
    For j = 1 To n
        Print a(i, j);
    Next j
Next i
max = a(1, 1)
For i = 1 To m
  For j = 1 To n
   If a(i, j) > max Then
   max = a(i, j)
End If
   Next j
Next i
For i = 1 To m
For j = 1 To n
If i = j Then
a(i, i) = max
End If
Next
Next
Print Spc(4); "ГђГҐГ§ГіГ«ГјГІГ*ГІ:"
For i = 1 To m
  Print
  For j = 1 To m
    Print a(i, j);
    Next
Next
End Sub