в метку label2 выдается результат увеличения полученной
переменной на значение первого элемента массива;
в метку label3 выдается результат увеличения полученной суммы на значение второго элемента массива;
в метку label4 выдается результат увеличения полученной суммы на значение третьего элемента массива;
в метку label6 выдается результат увеличения полученной суммы на значение последнего элемента массива.
Результат выдается для наглядности в различные метки на форме (рис. 22).
Рис. 22. Форма примера 8 в режиме конструктора и в рабочем состоянии
Листинг примера 8
Dim b As VariantPrivate Sub CommandButton1_Click()
Dim d(1 To 4) As Variant
d(1) = 15
d(2) = 0
d(3) = -10
d(4) = 25
For Each b In d
b = d(1) + b
Label2.Caption = «d(1)=» & d(1) & « b=» & b
b = d(2) + b
Label3.Caption = « d(2)=» & d(2) & « b=» & b
b = d(3) + b
Label4.Caption = « d(3)=» & d(3) & « b=» & b
b = d(4) + b
Label6.Caption = « d(4)=» & d(4) & « b=» & b
Next b
End Sub
«Здравствуй, введенное имя, студент группы номер группы специальности название специальности!»,
где введенное имя значение из первого текстового поля;
номер группы значение из второго текстового поля;
название специальности значение из третьего текстового поля.
Пример 10. Создать программу, которая, используя данные, считанные из текстовых полей формы, выполняет следующие действия: если введенный текст одинаков, то выдается сообщение «значение1 совпало с значением2», если введенный текст неодинаков, то выдается сообщение «значение1 не совпало с значением2», где значение1 и значение2 введенные слова.
Примечание. При разработке программы лучше использовать оператор Like (рис. 23).
Рис. 23. Форма
примера 10 в рабочем режиме
Глава 3 Массивы, процедуры, функции
3.1. Организация массивов
Наименее сложный массив это просто список элементов данных; такого рода массив называется простым, или одномерным, массивом. Подобный массив можно представить в виде очереди, где каждому элементу очереди присваивается не только порядковый номер (место в очереди), но и его конкретное значение (имярек).
Чтобы создать массив, нужно определить: его имя, количество элементов (размер массива), тип данных, которые будут храниться в массиве.
Массивы создаются при помощи оператора Dim:
Dim ИмяМассива (размер) As ТипДанных
Пример:
Dim МойМассив(3) As Integer
Так как отсчет элементов начинается с нулевого номера, то ставится цифра 3.
Другая версия задания массива: указать первый и последний номера элементов массива:
Dim МойМассив (1 То 3) As Integer
Dim Сотрудник(4) As String
Сотрудник(0) = «Иван Никитин»
Dim сотрудник(4) As StringDim I As Integer
For I = 0 To 4
Сотрудник (i) = ""
Next I
Dim сотрудник(4) As StringDim отпуск 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]],
varname имя существующего массива;
subscripts измерения массива (синтаксис для оператора subscripts в операторе ReDim такой же, как для оператора Dim);
type любой тип VBA или определенный пользователем тип.
Необходимо использовать отдельный оператор As type для каждого массива, который вы определяете.
Примеры:
1) Dim Month() As String объявляет динамический массив Month;