Офисное программирование

название специальности – значение из третьего текстового поля.

Пример 10. Создать программу, которая, используя данные, считанные из текстовых полей формы, выполняет следующие действия: если введенный текст одинаков, то выдается сообщение «значение1 совпало с значением2», если введенный текст неодинаков, то выдается сообщение «значение1 не совпало с значением2», где значение1 и значение2 – введенные слова.

Примечание. При разработке программы лучше использовать оператор Like (рис. 23).

Рис. 23. Форма примера 10 в рабочем режиме

Глава 3 Массивы, процедуры, функции

3.1. Организация массивов

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

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

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

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

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

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

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

Пример:

Dim МойМассив(3) As Integer

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

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

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

Dim МойМассив (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)

Здесь:

1) первой строкой создается массив Сотрудник, состоящий из пяти текстовых значений;

2) второй строкой создается текстовая переменная, именуемая отпуск;

3) третьей строкой четвертому элементу массива (которому соответствует третий порядковый номер) присваивается значение Иван Никитин;

4) в четвертой строке переменной отпуск присваивается значение элемента массива Сотрудник, которому соответствует третий порядковый номер.

Обычно элементы массива содержат значения, относящиеся к одному типу данных, например только строки или только целые числа. Если же необходимо, чтобы в массиве содержались данные разных типов, при создании массива укажите тип данных Object:

Dim МойМассив as object

Элементы такого массива могут содержать значения разных типов:

мойМассив(0) = «Спрут»

мойМассив(1) = 56

мойМассив(2) = 3.1415

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

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

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 для каждого массива, который вы определяете.