---

Private Sub CommandButtonl_Click()
If Not (IsNumeric (TextBoxl.Text) And IsNumeric (TextBox2.Text) And IsNumeric (TextBox3.Text) ) Then
MsgBox "Введите число", vbCritical, *ошибка"
Exit Sub
End If
ord (1
Dim a As Double, b As
Double, c As Double
Dim d As Double, xl As Double, x2 As Double
ord (1 V
a = Val (TextBox1.Text)
b = Val (TextBox2. Text)
c = Val (TextBox3. Text)
Labell. Caption = "Уравнение: " 6 a & "x'2 + (" & b& ")x+ (" & c
）=o'
d = b ^ 2 - 4*a a* c
Labe12. Caption = "Дискриминант: " & d
If d < 0 Then
Labe13. Caption = "Ответ: Уравнение не имеет действительных корней"
Elself d = 0 Then
x1 =-b / (2 * a)
Labe13. Caption = "Ответ:" & VbCrLf & "Уравнение имеет один корень" & vbCxLt & "x = " & x]
Else
ult
oveCente
x1 = (-b + Sar (d)) / (2 * a)
x2 = (-b - Sar(d)) / (2 * a)
Labe13.Caption = "Ответ:" & VbCrLf & "Уравнение имеет два корня" & vbCrLf & *x] =
End If
End Sub
& x1 & VbCrLf & "x2 = "
& x2