Офисное программирование | страница 36
enabled – допустимые значения: Тrue (пользователь может выбрать переключатель) и False (в противном случае);
visible – допустимые значения: Тrue (переключатель отображается во время выполнения программы) и False (в противном случае);
caption – надпись, отображаемая рядом с переключателем.
Рис. 34. Форма примера 16 в режиме конструктора и рабочем состоянии
Технология выполнения
1. Откройте приложение Word, сохраните документ и перейдите в редактор VBA.
2. Создайте форму (рис. 34).
3. Пропишите обработчики событий кнопок Закрыть и Вычислить.
Объявление глобальных переменных
Dim a, b, c, k, l, m As Double
Создание процедуры Shet
Sub shet()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
k = a * b + b / c
l = Sin(a) + (b + c) ^ 2
m = a + b + c
End Sub
Кнопка Вычислить
Private Sub CommandButton1_Click()
Call shet
If OptionButton1.Value = True Then
Label5.Caption = «a*b+b/c=» & k
End If
If OptionButton2.Value = True Then
Label5.Caption = «sin(a)+(b+c)^2=» & l
End If
If OptionButton3.Value = True Then
Label5.Caption = «a+b+c=» & m
End If
End Sub
Кнопка Закрыть
Private Sub CommandButton2_Click()
Unload Me
End Sub
4. Откомпилируйте программу.
5. Запустите форму на выполнение.
Пример 17. Создать программу, выполняющую следующее: при вводе имени пользователя, среднего балла и числа пропусков в соответствующие текстовые поля формы:
• если средний балл от 4 до 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы в поощрительном списке у директора!» (рис. 35);
• если средний балл меньше 4 и число пропусков больше 100, то выдается сообщение: «Имя, Вы еще учитесь здесь?».
При другом раскладе выдумайте свое сообщение.
Рис. 35. Форма примера 17 в рабочем состоянии
Примечание. Можно использовать различные варианты построения данной программы, один из них – использование инструкций If else или Select case.
Пример 18. Создать программу, выполняющую следующее: при вводе имени пользователя, среднего балла студента в текстовые поля формы и выбора числа пропусков:
• если средний балл 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы молодец! У Вас меньше 100 часов пропуска и … средний балл»;
• если средний балл от 4 до 5 и число пропусков меньше 150, то выдается сообщение: «Имя, хорошо! У Вас меньше 150 часов пропуска и … средний балл» (рис. 36);
• если средний балл от 3 до 4 и число пропусков до 200, то выдается сообщение: «Имя, надо лучше! У Вас до 200 часов пропуска и … средний балл»;
