Лекция 4. Массивы

Материалы этой статьи опубликованы в [], [].

§ 1.

…

1.1.

Одномерные массивы

Массив (array) – это коллекция переменных, которые имеют общие имя и базовый тип. Массив является удобным способом хранения нескольких связанных элементов данных. Все элементы данных, сохраняемых в массиве, должны иметь один и тот же тип.

Наименее сложный массив – это просто список элементов данных; такого рода массив называется простым, или одномерным, массивом. Подобный массив можно представить в виде очереди, где каждому элементу очереди присваивается не только порядковый номер (место в очереди), но и его конкретное значение (имярек).

Чтобы создать массив, нужно определить: его имя, количество элементов (размер массива), тип данных, которые будут храниться в массиве.

Массивы создаются при помощи оператора Dim:

Dim ИмяМассива (размер) As ТипДанных

Если вместо слова Dim набрать слово Public, будет создан массив, областью видимости которого станет вся программа.

Пример:

Dim Primer(3) As Integer

Создан массив по имени Primer, состоящий из четырех элементов и способный хранить значения типа Integer.

Так как отсчет элементов начинается с нулевого номера, то ставится цифра 3.

Другая версия задания массива: указать первый и последний номера элементов массива:

Dim Primer (1 То 3) As Integer

Элементы созданного массива не содержат никаких данных. Чтобы сохранить в массиве какое-нибудь значение, нужно указать, какому элементу оно должно быть присвоено. Предположим, создан массив, который может содержать в себе до пяти строк:

Dim Сотрудник(4) As String

Если необходимо первому элементу массива присвоить значение Иван Никитин, надо прописать такой код:

Сотрудник(0) = «Иван Никитин»

В большинстве программ при создании массива сразу же инициализируют его, присвоив каждому элементу нулевое значение или пустую строку. Это можно сделать, используя цикл for next, например:

Dim сотрудник(4) As String

Dim I As Integer

For I = 0 To 4

Сотрудник (i) = ""

Next I

Значения элементов массива можно присваивать другим переменным, например:

Dim сотрудник(4) As String

Dim отпуск As String

Сотрудник(3) = «Иван Никитин»

отпуск = сотрудник(3)

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

Порядок создания двухмерного массива тот же, что и одномерного, с той лишь разницей, что, указывая его размер, нужно указать два значения – строки и столбцы:

Dim ДвухММассив (Строки, Столбцы) As ТипДанных

Размер трехмерного массива будет определяться тремя числами и т. д.:

Dim ТрехММассив (X, Y, Z) As ТипДанных

При создании массивов, в том числе и многомерных, для хранения значения каждого элемента выделяется оперативная память (даже если это нулевые значения или пустые строки). Таким образом, создавая большой массив, происходит резкое уменьшение объема свободной памяти, что может негативно отразиться на работе программы. Поэтому создавать многомерные массивы следует лишь по мере необходимости. Подобные массивы называются статическими (static), потому что число элементов в массиве не меняется.

Выбор размера массива может быть затруднен, если неизвестно, сколько данных будет введено в массив, или если объем данных, собираемых для массива, значительно меняется. Для подобных ситуаций VBA поддерживает особый тип массивов, называемый динамическим (dynamic) массивом.

Динамические массивы создаются с помощью оператора Dim, Private, Public или Static, причем список размерностей опускается, затем их размер устанавливается с помощью оператора ReDim во время выполнения процедуры.

Оператор ReDim имеет следующий синтаксис:

ReDim [Preserve] varname (subscripts) [As type] [, varname (subscripts) [As type]],

где необязательное ключевое слово Preserve приводит к тому, что VBA сохраняет данные в имеющемся массиве, когда изменяется размер массива с помощью ReDim;

varname – имя существующего массива;

subscripts – измерения массива (синтаксис для оператора subscripts в операторе ReDim такой же, как для оператора Dim);

type – любой тип VBA или определенный пользователем тип.

Необходимо использовать отдельный оператор As type для каждого массива, который вы определяете.

Примеры:

1) Dim Month() As String – объявляет динамический массив Month;

2) ReDim Month(1 to 30) – изменяет размер массива до 30 элементов;

3) ReDim Month(31) – изменяет размер массива до 31 элемента;

4) ReDim Preserv Month(1 to 31) – изменяет размер массива до 31 элемента, сохраняя содержимое;

5) Dim Table() As Integer – объявляет динамический массив;

6) ReDim Table(3, 15) – делает массив двумерным;

7) ReDim Table(4, 20) – изменяет размер двумерного массива;