Составить программу преобразования матрицы размера 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д