Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент

Sub Ïðÿìîóã1_Ùåëêíóòü()
Dim i As Byte
Dim j As Byte
Dim r As Byte
Dim Matrix(5, 5) As Byte
For i = 0 To 5
For j = 0 To 5
r = Int(Rnd() * 256)
Matrix(i, j) = r
Next j
Next i
r = 255
For i = 0 To 5
For j = 0 To 5
If Matrix(i, j) < r Then
    r = Matrix(i, j)
End If
Next j
Next i
If r = 0 Then
     Exit Sub
End If
For i = 0 To 5
For j = 0 To 5
Matrix(i, j) = Int(Matrix(i, j) / r)
Next j
Next i
End Sub

Sub Прямоуг1_Щелкнуть()
Dim i As Byte, j As Byte, r As Byte
Dim str As String, Matrix(4, 4) As Integer
r = 255
For i = 0 To 4
    For j = 0 To 4
        Matrix(i, j) = Int(Rnd() * 256)
        If Matrix(i, j) < r Then r = Matrix(i, j)
    Next j
Next i
 
If r = 0 Then Exit Sub
 
For i = 0 To 4
    For j = 0 To 4
        Matrix(i, j) = Int(Matrix(i, j) / r)
        str = str & Matrix(i, j) & " "
    Next j
    str = str & vbCrLf
Next i
MsgBox str
End Sub