VBA.Программа вычисления одномерного массива

[furymaxim]

Задание:
Составить программу вычисления одномерного массива, каждый элемент которого равен минимальному элементу соответствующей строки матрицы A размером 5*5.

Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов, являющихся результатом вычислений, осуществите в рабочий документ приложения MS Word, используя оператор Type. В каждом варианте задания вычислите определители исходных матриц. При необходимости используйте отладчик приложения VBA.
-----------------------------
Матрицу с InputBox и определитель я успешно вычислил и вывел в таблицу excel,собственно,как можно вычислить минимальные элементы в каждой строке ( это понятно,нужно сравнить элемент данной строки с каждым последующим,то есть меняется номер столбца,а потом уже переходить на другую строку,а уже эти минимальные элементы записать в массив. Для вывода нужен MsgBox,как их из Excel в ворд перетащить,вообще не пойму,но пойдет хотя бы в Excel.

Прилагаю сам документ,не думаю,что нужны скриншоты.

[Aleksandr H.]

Сообщение от furymaxim

Матрицу с InputBox и определитель я успешно вычислил и вывел в таблицу excel

кому это нужно? в задании такого нету, следовательно, код не твой, а ты просто стырил файла и выдаешь как свой

[furymaxim]

Сообщение от Aleksandr H.

кому это нужно? в задании такого нету, следовательно, код не твой, а ты просто стырил файла и выдаешь как свой

Я выделил нужную мне часть задания,я не стал печатать то,что уже сделано,зачем? Как бы в любом задании было бы сказано задайте матрицу и т.д. Всё абсолютно моё

[Serge_Bliznykov]

Сообщение от furymaxim

Всё абсолютно моё

ошибка 1:

m = InputBox("Введите кол-во строк")
n = InputBox("Введите кол-во столбцов")
Cells.Clear
ReDim A(n, m)

перепутаны местами строки и столбцы (проверяется, кстати, очень легко - введите не равные значения, сразу увидите.

д.б.

n = InputBox("Введите кол-во строк")
m = InputBox("Введите кол-во столбцов")
Cells.Clear
ReDim A(n, m)
For I = 1 To n
  For J = 1 To m
      A(I, J) = InputBox("A(" & I & ", " & J & ")")
  Next J
Next I

что же касается поиска максимальных значений и сохранения в скалярный массив, то на скриншоте у Александра представлен рабочий код.

[furymaxim]

Сообщение от Serge_Bliznykov

ошибка 1:


перепутаны местами строки и столбцы (проверяется, кстати, очень легко - введите не равные значения, сразу увидите.

д.б.

n = InputBox("Введите кол-во строк")
m = InputBox("Введите кол-во столбцов")
Cells.Clear
ReDim A(n, m)
For I = 1 To n
  For J = 1 To m
      A(I, J) = InputBox("A(" & I & ", " & J & ")")
  Next J
Next I

что же касается поиска максимальных значений и сохранения в скалярный массив, то на скриншоте у Александра представлен рабочий код.

спасибо!

[furymaxim]

Просто вот так звучит задание,а вторая часть задания по вариантам

[Sciv]

При необходимости используйте отладчик приложения VBA...

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

[Aleksandr H.]

Сообщение от Serge_Bliznykov

то на скриншоте у Александра представлен рабочий код

есть там "пасхалка" одна, но, думаю, ТС если будет пользоваться кодом, легко ее вычислит и изменит переменные размеров.

[Serge_Bliznykov]

Сообщение от Aleksandr H.

есть там "пасхалка" одна

увидел после ваших слов, сразу в коде проглядел.
А вот TC может быть и не узнает ничего про неё, в исходном задании даётся матрица 5x5, если он и дальше будет использовать прямоугольные матрицы, то и не увидит вашей "пасхалочки".