Офисное программирование

ОглавлениеДобавить в закладки К обложке

Примечание. При разработке данной формы используется новый элемент Переключатель

(optionButton), который позволяет выбрать один из нескольких взаимоисключающих параметров или действий. Наиболее часто используемые свойства элемента управления OptionButton:

value – возвращает True, если переключатель выбран, и False в противном случае;

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 часов пропуска и … средний балл»;

• если средний балл от 2 до 3 и число пропусков больше 200, то выдается сообщение: «Имя, плохо! У Вас больше 200 часов пропуска и … средний балл».

При другом раскладе выдумайте свое сообщение.

Рис. 36. Форма примера 18 в рабочем состоянии

Пример 19. Создать программу, выполняющую следующее: при вводе имени пользователя и возраста в текстовые поля формы, выбора среднего балла и числа пропусков:

• если средний балл 5, число пропусков меньше 100, то приложение выдает сообщение: «Имя, Вы молодец! У Вас меньше 100 часов пропуска, средний балл равен 5, и Вам всего … лет!»;


-= 29 =-
Регистрация.
Забыли пароль?
Логин
Пароль
Запомнить меня