Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали

For i = 1 To n
Max = a(i, 1): j1 = 1
For j = 2 To n
If Max < a(i, j) Then
Max = a(i, j): j1 = j
End If
Next
t = a(i, i): a(i, i) = a(i, j1): a(i, j1) = t
Next

Option Explicit
Private Sub Command1_Click()
Dim L(1 To 9, 1 To 9) As Integer, xmax(1 To 9) As Integer, nmax(1 To 9) As Integer
Dim temp As Integer, i As Integer, j As Integer, k
Randomize
Cls
 
For i = 1 To 9
   For j = 1 To 9
       L(i, j) = Int(Rnd * 100)
       Print vbTab; "L("; i; ","; j; ")="; L(i, j);
   Next j
   Print
Next i
Print
 
For i = 1 To 9
      xmax(i) = L(i, 1): nmax(i) = 1
      For j = 1 To 9
          If L(i, j) > xmax(i) Then xmax(i) = L(i, j): nmax(i) = j
      Next j
      Print vbTab; "xmax("; i; ")="; xmax(i) & "    nmax("; i; ")="; nmax(i)
Next i
Print
 
For i = 1 To 9
      L(i, nmax(i)) = L(i, i): L(i, i) = xmax(i)
Next i
 
For i = 1 To 9
      For j = 1 To 9
           Print vbTab; "L("; i; ","; j; ")="; L(i, j);
      Next j
      Print
Next i
 
End Sub