|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.03.2010, 23:28 | #1 |
Регистрация: 28.03.2010
Сообщений: 7
|
Проблема с двумерным массивом в VBA
Написать программу обработки двумерного массива. Ввод элементов производить с листа MS Excel. Результат также поместить на лист Excel.Задание: Дана квадратная матрица порядка N. Вывести столбец матрицы, в котором элемент, стоящий на главной (побочной) диагонали, минимален, среди элементов главной диагонали.
Никак не могу сделать( Вопрос начинается уже сначала, как задать квадратную матрицу размерностью N ? Решив на это плюнуть, попробовал создать матрицу 4 на 4 в экселе, повводил числа. Написал соответствующую программу, вот она: Public Sub prog4() Dim a(1 To 4, 1 To 4) As Integer Dim i_min As Integer, j_min As Integer i_min = 1 j_min = 1 For i = 1 To 4 For j = 1 To 4 a(i, j) = Worksheets(1).Cells(i, j) If i = j Or i + j = 4 + 1 Then If a(i, j) < a(i_min, j_min) Then i_min = i And j_min = j End If Next j Next i Worksheets(1).Range("A12") = j_min End Sub Но оно выдаёт ошибку Subsript out of range .... Я попробовал сделать пошаговую отслежку, и заметил, что когда оно находит элемент, меньше элемента А(1,1), то оно не запоминает соответсвующие этому элементу i-тую строку и j-тый столбец... и также обнуляет i_min и j_min, т.е. делает их равными нулю ... Но вроде программа правильно написано, не понимаю в чём дело, помогите плиз, и по возможности скажите как задать двумерный массив размерностью N, так что бы можно было ещё данные с листа Excel вводить. |
29.03.2010, 01:44 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Смотрите вложение
Анализ,обработка данных Недорого
|
30.03.2010, 05:48 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Еще вариант, по проще.
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с двумерным массивом | SaimaN | Помощь студентам | 0 | 16.03.2010 15:23 |
Помогите с двумерным массивом в С++ | Vultar | Помощь студентам | 11 | 12.11.2009 18:28 |
проблемы с двумерным массивом | pancho | Общие вопросы Delphi | 10 | 29.01.2009 21:24 |
Задача с двумерным массивом. | svobodys | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.12.2008 18:09 |
задача с двумерным массивом | Ras | Помощь студентам | 1 | 22.12.2007 19:58 |