Технология выполнения

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 в режиме конструктора и в рабочем состоянии