Максимальный элемент в каждой строке поменять местами с элементом главной диагонали.Полученную матрицу распечатать - VB

Dim x(5) As Integer, y(5) As Integer, l As Integer
Dim z(5, 5) As Integer, s As Integer, k As Integer, max As Integer, elm As Integer
Private Sub Command1_Click()
For i = 1 To 5
x(i) = Int(Rnd(1) * 10)
Next i
For j = 1 To 5
y(j) = Int(Rnd(1) * 10)
Next j
For i = 1 To 5
    For j = 1 To 5
    z(i, j) = ((x(i) ^ 2) + y(j)) ^ (1 / 3)
    Print z(i, j),
    Next j
Print
Next i
Print
End Sub
Private Sub Command2_Click()
For i = 1 To 5
        For j = 1 To 5
          max = 1
          If z(i, j) > z(i, max) Then max = j
          elm = z(i, j)
          z(i, i) = z(i, max)
          z(i, max) = elm
          Next j
          Next i
          Print z(i, j)
End Sub