Динамические массивы

Массивы

Как и в других языках программирования, в VBA вы можете использовать массивы. Примеры объявления массивов приведены ниже.

Dim B(3, 3) As Single

Dim A(12) As Integer

Первая строка объявляет двумерный массив 3x3 (матрицу), состоящий из действительных чисел. Вторая строка объявляет одномерный массив (вектор) из 12 целых чисел, причем по умолчанию первый элемент массива будет А(0), а последний А(11). В этом случае говорят, что 0 — базовый ин­декс. Можно изменить базовый индекс, написав в начале листа модуля ин­струкцию Option Base 1. После этого индексы массивов аив будут начи­наться с единицы. Другим способом изменения базового индекса является использование ключевого слова то при объявлении массива:

Dim B(l То 3, 1 То 3) As Single

Dim A(l To 12) As Integer

Массив в программе определяется поэлементно. Например,

Dim B(l To 2, 1 То 2) As Single

B(l,l)=2

В(1,2)=4

В(2,1)=1

В(1,2)=6

Удобным способом определения одномерных массивов является функция Ar­ray, преобразующая список элементов, разделенных запятыми, в вектор из этих значений, и присваивающая их переменной типа variant. Например,

Dim A As Variant

А = Array{10,20,30)

В = А(2)

Иногда в процессе выполнения программы требуется изменять размер масси­ва. В этом случае первоначально массив объявляют как динамический. Для этого при объявлении массива не надо указывать размерность, например:

Dim R() as Single

В программе следует вычислить необходимый размер массива и связать его с некоторой переменной, например п, затем изменить размер динамиче­ского массива с помощью оператора ReDim.

Синтаксис:

ReDim [Preserve] ИмяПеременной(Индексы) [As Тип]_

[. ИмяПеременной(Индексы)[As Тип]] ...

Аргументы:

Например, установим границы массивы r:

ReDim R(1 To 10)

Допустимо повторное использование инструкции ReDim для изменения чис­ла элементов и размерностей массива.