1. Активизируйте приложение Word, сохраните документ под именем Case.
2. Перейдите в редактор VBA и создайте форму (рис. 18).
3. Пропишите обработчик кнопки «Результат».
Dim a, b, c, d As Integer
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
Select Case a
Case 5
d = b + c
Label4.CaptioN= «Результат: d=» & d
Case 0
d = – b – c
Label4.CaptioN= «Результат: d=» & d
Case 10
d = b * c
Label4.CaptioN= «Результат: d=» & d
Case Else
Label4.CaptioN= «Введено не то значение»
End Select
End Sub
Рис. 18.Форма примера 5 в режиме конструктора
Для того чтобы программа работала корректно, необходимо перевести все текстовые значения, которые вводятся в текстовые поля, в числовые. Для этого прописывают в коде преобразование: a = Val(TextBox1.Text) и т. д. После чего программа уже работает с числовыми значениями.
Если программа в итоге выдает значение одного типа (числовое или строковое), то строку вывода результата можно прописывать по окончании всего блока Case. В данном примере сначала выводятся числовые значения (d), а затем строковое («Введено не то значение»). Поэтому вывод результата необходимо предусмотреть в каждой ветке Case.
Результаты работы показаны на рис. 19.
Пример 6. Создать программу, которая, используя пользовательское диалоговое окно (форму), выполняет следующие действия: при вводе трех переменных в текстовые поля она считывает данные и сравнивает с первой переменной а. Результат выдается в метку на форме (рис. 20).
Рис. 19.Некоторые результаты работы формы примера 5
Рис. 20.Форма примера 6 в режиме конструктора и в рабочем состоянии
Листинг примера 6
Private Sub CommandButton1_Click()
Dim a, b, c As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If a > b And a > c Then
Label1.CaptioN= «Значение а > b и a >c»
Else
Label1.CaptioN= «Значение а не всегда больше b и с» End If End Sub
Пример 7. Создать программу, которая, используя форму, выполняет следующие действия: при вводе переменной в текстовое поле она считывает данное значение а, после чего организует цикл for с шагом, равным 5, где при каждом шаге значение переменной b становится равным значению переменной а плюс шаг изменения. Итоговое значение с суммирует полученное значение b и введенное значение а. Результат выдается в метку на форме (рис. 21).
Рис. 21.Форма примера 7 в режиме конструктора и в рабочем состоянии
Листинг примера 7
Dim a As Variant
Dim b As Integer
Dim c As Integer
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
For i = 1 To 12 Step 5
b = a + i
c = a + b
Next i
Label1.CaptioN= a & "+" & b & "=" & c
End Sub
Пример 8. Создать программу, которая выполняет следующие действия: организованный цикл for each присваивает переменной b, объявленной в программе, последнее значение массива, также определенного программой. После этого происходят вычисления, предложенные в программе:
•в метку label2 выдается результат увеличения полученной переменной на значение первого элемента массива;
•в метку label3 выдается результат увеличения полученной суммы на значение второго элемента массива;
•в метку label4 выдается результат увеличения полученной суммы на значение третьего элемента массива;
•в метку label6 выдается результат увеличения полученной суммы на значение последнего элемента массива.
Результат выдается для наглядности в различные метки на форме (рис. 22).
Рис. 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 INd
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 выполняется один раз для каждого элемента в группе. Вследствие чего данный цикл используется в основном в специфических действиях, таких как поиск необходимого листа в коллекции объектов и т. д., и не используется при решении простых задач.
