Определить максимального элемента двухмерного массива с запоминанием его индексов - VB

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

Задан массив X(4,4) он уже в введён в прогу

при нажатии на кнопку должна появиться надпись "Макс. элемент и его индексы" в общем не получилось у меня то что надо, явно макс. элемент "11"

Private Sub Command3_Click() 'Максимальный элемент
Dim Max As Double
Max = x(1, 3)
For I = 1 To 4
For j = 1 To 4
If x(I, j) > Max Then Max = x(I, j)
Next
Next
Print
Print "максимальный элемент и его индексы-", Max, I, j

End Sub

Решение задачи: «Определить максимального элемента двухмерного массива с запоминанием его индексов»

textual
                            Листинг программы 
                        
                            If x(I, j) > Max Then Max = x(I, j): ii=i:jj=j

Оцени полезность:

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

Похожие ответы