Рис. 22. Форма примера 8 в режиме конструктора и в рабочем состоянии
Листинг примера 8
Dim b As Variant
Private 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
Примечание. Как говорилось выше, For Each … Next не использует счетчик цикла. Циклы For Each … Next выполняются столько раз, сколько имеется элементов в определенной группе, такой как коллекция объектов или массив. Другими словами, цикл For Each … Next выполняется один раз для каждого элемента в группе. Вследствие чего данный цикл используется в основном в специфических действиях, таких как поиск необходимого листа в коллекции объектов и т. д., и не используется при решении простых задач.
Пример 9. Создать программу, которая, используя данные, считанные из текстовых полей формы, после нажатия на кнопку выводит сообщение:
«Здравствуй, введенное имя, студент группы номер группы специальности название специальности!»,
где введенное имя – значение из первого текстового поля;
номер группы – значение из второго текстового поля;
название специальности – значение из третьего текстового поля.
Пример 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) = «Иван Никитин»