Ошибка при определении 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 4 из 5
Похожие ответы