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

UptoLike

ВУЗ: 

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

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

Рубрика: 

58 59
Рис. 9.6
Далее открыть модуль, программно поддерживающий объект
CommandButton1 (в свойстве Caption переименованный в «Вы-
числить») объекта UserForm, и написать программу, обеспечиваю-
щую организацию взаимодействия выбранных объектов для полу-
чения результатов при выбранных математических операциях.
Программа логарифмического калькулятора
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 CheckBox1 = True Then
If B > 0 And B <> 1 And A > 0 Then TextBox3 = Application.WorksheetFunction.
Log(A, B) Else TextBox3 = "Недопустимые значения!"
Else TextBox3 = ""
End If
If CheckBox2 = True Then
If A > 0 Then TextBox4 = Application.WorksheetFunction.Log10(A) Else
TextBox4 = "Недопустимые значения!"
Else TextBox4 = ""
End If
If CheckBox3 = True Then
If A > 0 Then TextBox5 = Application.WorksheetFunction.Ln(A) Else
TextBox5 = "Недопустимые значения!"
Else TextBox5 = ""
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
логарифмический калькулятор с CheckBox позволяет выве-
сти одновременно результаты вычислений трех видов логарифмов
или некоторых, для чего используются три объекта TextBox;
в программе используется функция IsNumeric(TextBox1),
проверяющая, являются ли данные, помещенные в объекте Text-
Box1 или TextBox2, цифровыми;
в программе используется функция CDbl(TextBox), обеспе-
чивающая
преобразование данных объектов TextBox1 и TextBox2
в цифровые;
в программе обрабатывается ситуация невозможности вы-
числения логарифмов от отрицательного числа или числа, равно-
го нулю;
в программе обеспечивается ситуация вывода пустого окна
в случае, если какой-либо CheckBox не выбран;

Страницы