Ошибка при определении max и min элемента в каждой строке матрицы - VB

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

Здравствуйте, подскажите пожалуйста на ошибку, дана задача: Дана матрица NxM. Определить максимальный и минимальный элемент в каждой строке матрицы и их индексы. В строке 13 выдаёт сообщение: "несовпадение типов".
Private Sub Command1_Click()
Dim x(1 To 100, 1 To 100), N, M, xmax, nmax, xmin, nmin, G, I As Integer
N = Val(InputBox("введите N"))
M = Val(InputBox("введите M"))
For G = 1 To N
For I = 1 To M
    x(G, I) = Int(Rnd * 100)
    Print "x("; G; ","; I; ")="; x(G, I);
Next I
Print
Next G
For G = 1 To N
xmin(G) = x(G, 1)
nmin(G) = 1
xmax(G) = x(G, 1)
nmax(G) = 1
For I = 2 To M
If x(G, I) > xmax(G) Then xmax(G) = x(G, I): nmax(G) = I
If x(G, I) < xmin(G) Then xmin(G) = x(G, I): nmin(G) = I
Next I
Print "xmax("; G; ")="; xmax(G), "nmax("; G; ")="; nmax(G), "xmin("; G; ")="; xmin(G), "nmin("; G; ")="; nmin(G)
Next G
End Sub

Код к задаче: «Ошибка при определении max и min элемента в каждой строке матрицы - VB»

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.000 из 5


СОХРАНИТЬ ССЫЛКУ