Информатика для I курса. Часть I. Никифоров С.Н. - 28 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

54 55
Программа калькулятора с OptionButton
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Исходные данные введены неверно или не полностью!", , "Введите
числа"
Exit Sub
End If
A = CDbl(TextBox1)
B = CDbl(TextBox2)
If OptionButton1 = True Then TextBox3 = A + B
If OptionButton2 = True Then TextBox3 = A - B
If OptionButton3 = True Then
If B <> 0 Then TextBox3 = A / B Else TextBox3 = "На ноль не делим!"
End If
If OptionButton4 = True Then TextBox3 = A * B
If OptionButton5 = True Then
If (A = 0) And (B <= 0) Then TextBox3 = "Недопустимые значения!" Else
TextBox3 = A ^ B
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
в программе используется функция IsNumeric(TextBox1),
проверяющая, являются ли данные, помещенные в объекте TextBox1
или TextBox2, цифровыми;
в программе используется функция CDbl(TextBox), обеспе-
чивающая преобразование данных объектов TextBox1 и TextBox2
в цифровые;
в программе обрабатывается ситуация невозможности деле-
ния на ноль;
в программе обрабатывается ситуация невозможности возве
-
дения нуля в нулевую степень;
модуль объекта CommandButton2, который в свойстве Caption
переименован в «Выход», обеспечивает завершение функциониро-
вания объекта UserForm.
9.2. Калькулятор с CheckBox
Создание пользовательской формы организуется следующим
образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис
. 9.4) последовательно переместить:
два объекта Label;
семь объектов Textbox;
пять объектов CheckBox;
четыре объекта Frame;
два объекта CommandButton,
расположив их, как показано на рис. 9.5.
Рис. 9.5

Страницы