Ошибка при определении max и min элемента в каждой строке матрицы - VB
Формулировка задачи:
Здравствуйте, подскажите пожалуйста на ошибку, дана задача:
Дана матрица NxM. Определить максимальный и минимальный элемент в каждой строке матрицы и их индексы. В строке 13 выдаёт сообщение: "несовпадение типов".
Решение задачи: «Ошибка при определении max и min элемента в каждой строке матрицы»
textual
Листинг программы
Private Sub Command1_Click() Dim X() As Integer, xmax() As Integer, nmax() As Integer, xmin() As Integer, nmin() As Integer Dim m As Integer, n As Integer, i As Integer, j As Integer m = Val(InputBox("Введите количество строк", "Ввод данных", 5)) n = Val(InputBox("Введите количество столбцов ", "Ввод данных", 6)) ReDim X(1 To m, 1 To n), nmin(1 To m), xmin(1 To m), nmax(1 To m), xmax(1 To m) Randomize Cls For i = 1 To m For j = 1 To n X(i, j) = Int(Rnd * 100) Print vbTab; "x("; i; ","; j; ")="; X(i, j); Next j Print Next i Print For i = 1 To m xmin(i) = X(i, 1): nmin(i) = 1: xmax(i) = X(i, 1): nmax(i) = 1 For j = 2 To n If X(i, j) > xmax(i) Then xmax(i) = X(i, j): nmax(i) = j If X(i, j) < xmin(i) Then xmin(i) = X(i, j): nmin(i) = j Next j Print vbTab; "xmax("; i; ")="; xmax(i) & " nmax("; i; ")="; nmax(i); vbTab; "xmin("; i; ")="; xmin(i) & " nmin("; i; ")="; nmin(i) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д