---

Private Sub CommandButton1_Click()
• 1. Объявление переменных
Dim a As Double, b As Double, c As
Double
Dim
D As Double, x1 As Double, x2 As
Double
' 2. Проверка ввода (Задание 4: если
введена буква вместо числа)
If Not IsNumeric(TextBox1.Text) Or Not
IsNumeric(TextBox2.Text) Or Not IsNumeric(TextBox3. Text) Then
MsgBox "Введите число", vbCritical,
"Ошибка ввода"
Exit Sub
End If
' 3. Считывание значений из текстовых
полей
a
= CDbl(TextBox1.Text)
b = CDbl(TextBox2. Text)
c = CDbl(TextBox3.Text)
' Проверка на линейное уравнение (если
a = 0)
If
a = 0 Then
MsgBox "Коэффициент "А' не может быть равен О для квадратного уравнения!",
vbExclamation
Exit Sub
End If
• 4. Вычисление дискриминанта
D= b ^ 2 - 4 * a * c
TextBox4. Text = CStr(D) ' Выводим
дискриминант в TextBox4
• 5. Ветвление в зависимости от
значения D (с использованием
If... Then... Else)
If D < 0 Then
' Если D < 0
TextBox5. Text = "Действительных
корней нет"
TextBox6. Text = ''''
Elself D = 0 Then
' Если D = 0
x1 = -b / (2 * a)
TextBox5. Text = "X = " & CStr (x1)
TextBox6. Text = "Один корень"
Else
' Если D > 0
x1 = (-b + Sqr (D)) /
x2 = (-b - Sqr (D)) /
TextBox5. Text = "X1 = "'
CStr (Round (x1, 4))
TextBox6. Text = "X2 = " &
CStr (Round (x2,
4))
End If
End Sub