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

  1. Здравствуйте, подскажите пожалуйста на ошибку, дана задача: Дана матрица NxM. Определить максимальный и минимальный элемент в каждой строке матрицы и их индексы. В строке 13 выдаёт сообщение: "несовпадение типов".


textual

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

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



Похожие ответы
  1. Добрый день. Есть тестовое приложение, оно содержит один элемент меню, на котором висит shortcut(Ctrl+L) и командную кнопку. Если я нажимаю комбинацию клавиш Ctrl+L с клавиатуры, то появляется окно сообщения, что нажат пункт меню. Как сделать так, чтобы при нажатии на командную кнопку эмулировалось нажатие Ctrl+L для меню. Эту задачу удается решить с помощью keybd_event, но необходимо в дальнейшем отправлять комбинацию в функцию окна, использую хэндл окна. Соответственно keybd_event по этой причине не подходит, как не подходит и отправка сообщения wm_command. По идее, должен работать вариант с отправкой сообщений wm_keydown для каждой клавиши. Например: PostMessage хэндл окна, номер сообщения, vkkeycode(vk_control), lParam(содержит repeatcount и scancode) PostMessage хэндл окна, номер сообщения, vkkeycode(vk_L), lParam(содержит repeatcount и scancode) Но при этом ноль реакции. Через spy++ смотрел сообщения клавиатуры. При физическом нажатии так же генерируются два keydown-а, как и при эмуляции через postmessage. Содержимое сообщений идентичны. Но, в обоих случаях так же появляется сообщение wm_char, они отличаются по содержимому wParam, lParam. wm_char я не отправляю, оно генерируется, как я понимаю defwindowproc. Буду признателен и благодарен за решение или направление в нужную сторону, т.к. ситуация тупиковая, на данный момент.

  1. Здравствуйте, помогите пожалуйста разобраться в чем тут ошибка?

  1. Как можно присвоить значение элемента TextBox строковой переменной?

  1. Cоставить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке.Например,для числа 1234 получаем ответ 4321.

  1. Количество жёстких дисков от 2-х. Как без WMI(если отключён), без FSO и без Left$(App.Path, 3) определить сопоставления логических дисков физическим, пользуясь API?

  1. При помощи VB6 как сделать привязку программы? По SN материнки, процессора, жёсткого диска, сетевой карты и т.д.

  1. Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0неправильно собран или неработоспособен, он будет перенесен сюда. Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему

  1. Помогите пожалуйста решить проблему: в консольное приложение необходимо отправить определенную команду (например "go"). Пробовал это осуществить с помощью такой операции:

  1. привет, друзья! после нажатия на кнопку на ней появляется фокус, как сделать что бы он не появлялся?