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

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

Доброго времени суток. Задача у меня простая, но в с vb туговато... Составить программу преобразования матрицы размера 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
Вот здесь формирование массива и деление элементов на минимальный, а как вывести полученный массив в messagebox?

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

textual
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

10   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ