Ввод двумерного массива

Практическая работа

Тема: Двумерные массивы в VBA

Цель: Освоить технологию обработки двухмерных массивов в VBA

Задачи

1 Изучение теоретического материала

2 Привитие навыков самостоятельной работы с электронными материалами

Задания

1 Изучить предложенный материал

2 Разобрать и проверить ВСЕ! примеры

3 Ответить в конспекте на контрольные вопросы

4 Выполнить индивидуальные задания

Контрольные вопросы

1 Что такое двухмерный массив (матрица)?

2 Как объявляются матрицы?

3 Каким образом обращаться к элементам матрицы?

4 Что такое главная и побочная диагонали в квадратной матрице?

5 Как соотносятся индексы элементов, находящихся на главной и побочной диагонали?

6 Как соотносятся индексы элементов, находящихся выше или ниже главной диагонали?

7 Как соотносятся индексы элементов, находящихся выше или ниже побочной диагонали?

8 Как соотносятся индексы элементов, находящихся в различных четвертях матрицы?

9 Что такое транспонирование матрицы?

Двумерные массивы

Двумерные массивы представляют собой последовательность чисел, расположенных в несколько строк и столбцов, например, следующим образом:

4 –3 2 4 5

6 3 2 4 0

7 1 2 6 0

12 24 25 8 4

0 4 5 8 3

Каждый элемент двумерного массива обозначается при помощи имени и индексов, заключенных в круглые скобки, например, A(i, j), X(4, 3), P(2*i, j+1).

Двумерный массив, называемый также матрицей, описывается при помощи оператора Dim.

Dim A(10, 10) As Тип ‘ нумерация с нуля

Dim A(1 To 10, 1 To 10) As Тип ‘ нумерация с единицы

Матрица, у которой количество строк равно количеству столбцов называется квадратной матрицей.

Ввод двумерного массива

1. Считывание массива с рабочего листа Excel.

For i = 1 To N

For j = 1 To M

A(i,j) = Cells(i,j)

Next j

Next i

‘ N – количество строк массива, M – количество столбцов массива.

2. Формирование массива на рабочем листе Excel при помощи счетчика случайных чисел, а затем считывание массива с рабочего листа.

Randomize

For i = 1 To N

For j = 1 To M

Cells(i,j) = Int(Rnd * 100 ­– 50)

A(i,j) = Cells(i,j)

Next j

Next i

Не нашли, что искали? Воспользуйтесь поиском: