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

UptoLike

ВУЗ: 

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

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

Рубрика: 

60 61
модуль объекта CommandButton2, который в свойстве
Caption переименован в «Выход», обеспечивает завершение функ-
ционирования объекта UserForm.
9.4. Решение квадратных уравнений
Создание пользовательской формы организуется следующим
образом:
войти в VBA – Alt-F11;
выбрать Insert (вставка);
выбрать UserForm.
Затем на появившуюся «платформу» объекта UserForm с пане-
ли Toolbox (см. рис. 9.4) последовательно переместить:
шесть объектов
Label;
шесть объектов Textbox;
три объекта Frame;
два объекта CommandButton,
расположив их, как показано на рис. 9.7.
В объекте UserForm используются три объекта Frame (рамка)
(см. рис. 9.7), два из которых переименованы в «Исходные дан-
ные» и «Результаты».
Далее открыть модуль, программно поддерживающий объект
CommandButton1 (в свойстве Caption переименованный в «Вы-
числить»), объекта UserForm, и написать программу, обеспечива-
ющую организацию взаимодействия выбранных объектов для по-
лучения результатов при вычислении корней квадратного уравне-
ния с заданными коэффициентами a, b и c.
Программа решения квадратных уравнений
Private Sub CommandButton1_Click()
Dim A As Double, B As Double, C As Double
Dim X1 As Double, X2 As Double, D As Double
If IsNumeric(TextBoxA) And IsNumeric(TextBoxB) And IsNumeric(TextBoxC)
Then
A = TextBoxA: B = TextBoxB: C = TextBoxC
Рис. 9.7
D = B ^ 2 - 4 * A * C: TextBoxD = D
If D >= 0 Then
X1 = (-B + D ^ (1 / 2)) / (2 * A)
X2 = (-B - D ^ (1 / 2)) / (2 * A)
TextBoxX1.Visible = True: TextBoxX1 = X1
TextBoxX2.Visible = True: TextBoxX2 = X2
Label4.Visible = True
Label4 = "X1"
Label5.Visible = True
Else
TextBoxX1.Visible = False
TextBoxX2.Visible = False
Label4 = "Нет решений"
Label5.Visible = False
End If

Страницы