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

Узнай цену своей работы

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

Доброго времени суток. Задача у меня простая, но в с vb туговато... Составить программу преобразования матрицы размера 5x5, разделив каждый элемент матрицы на ее минимальный элемент.
Вот здесь формирование массива и деление элементов на минимальный, а как вывести полученный массив в messagebox?

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

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.2 из 5
Похожие ответы