Использование msgbox / inputbox при работе с массивами

@furymaxim · Регистрация: 25.09.2016

Author24 — интернет-сервис помощи студентам

Задание:

Исходные данные (размеры матриц и значения элементов матриц) вводятся с помощью оператора ввода InputBox. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов, являющихся результатом вычислений, осуществите в рабочий документ приложения MS Word, используя оператор Type. В каждом варианте задания вычислите определители исходных матриц. При необходимости используйте отладчик приложения VBA.
12. Составить программу вычисления одномерного массива, каждый элемент которого равен минимальному элементу соответствующей строки матрицы A размером 5*5.

Visual Basic

Sub Zadanie3()
Dim I As Integer ' Строка
Dim J As Integer  'Столбец
Dim n As Integer
Dim m As Integer
Dim min As Integer
m = InputBox("Введите число строк")
n = InputBox("Введите число столбцов")
Cells.Clear
ReDim A(n, m)
For I = 1 To m
For J = 1 To n
A(I, J) = InputBox("A(" & I & ", " & J & ")")
Next J
Next I
ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.Range("$A$1:$C$1"), , xlYes).Name = "Таблица"
For I = 1 To m
For J = 2 To n
If min < A(I, J) Then min = A(I, J)
z = min
MsgBox (" Результат равен z=" & z)
Next
Next

Также прикреплю исходник.

Как вывести введенную матрицу на активный лист Excel ,пробовал и Print.(Debug) и это , не выходит всё равно,и как подсчитать минимальный элемент строки,а и потом вычислить одномерный массива, каждый элемент которого равен минимальному элементу соответствующей строки ?

@fever brain · 26.11.2017, 19:57

Вывод в лист:
делай два цикла For
один будет приращивать сумму счетчика по горизонтали другой по вертикали
в теле цикла присваивай ячейкам значения
пример который я выложил недавно Найти сумму строк матрицы

и еще вниз страницы посмотри, там есть похожие темы

Добавлено через 2 минуты
Я твой архив не смотрел и не хочу смотреть, но если у тебя одномерный массив
то значит одного цикла for...next будет достаточно

@MU-GK · 27.11.2017, 15:26

Если записывать в ячейки, то это происходит долго.
Большие таблицы могут записываться при этом часами и это не преувеличение.

Надо делать так - задавать двумерный массив, потом задавать диапазон, совпадающий по размерам с массивом и напрямую сбрасывать массив в диапазон.

Выглядит примерно так:

Visual Basic

Sub Matrix()
 Dim v as variant
 Dim iR as Range
 Dim r as Long, c as Long
 
ReDim v(1 to 200, 1 to 300) as single
 
For r =1 to 200
 For c = 1 to 300
 v(r, c) = 0.01*r^2+c^0.5 
 Next c
Next r
 
set iR = Range(Cells(1, 1), Crlls(200, 300))
iR.Value = v
End Sub

@fever brain oh my god 1455 / 794 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	26.11.2017, 19:57	2
	Вывод в лист: делай два цикла For один будет приращивать сумму счетчика по горизонтали другой по вертикали в теле цикла присваивай ячейкам значения пример который я выложил недавно Найти сумму строк матрицы и еще вниз страницы посмотри, там есть похожие темы Добавлено через 2 минуты Я твой архив не смотрел и не хочу смотреть, но если у тебя одномерный массив то значит одного цикла for...next будет достаточно 0

	27.11.2017, 15:26

Опции темы