Листинг примера

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 выполняется один раз для каждого элемента в группе. Вследствие чего данный цикл используется в основном в специфических действиях, таких как поиск необходимого листа в коллекции объектов и так далее, и не используется при решении простых задач.

Задачи на закрепление материала

Пример

Создать программу, которая, используя данные, считанные из текстовых полей формы, после нажатия на кнопку выводит сообщение:

«Здравствуй, введенное имя, студент группы номер группы специальности название специальности !»,

где введенное имя – значение из первого текстового поля;

номер группы – значение из второго текстового поля;

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

Пример

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

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

Форма примера в рабочем режиме