Технология выполнения
      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()

Конец бесплатного ознакомительного фрагмента.