---

Private Sub CommandButton1_Click()
    Dim a As Double, b As Double, c As Double, D As Double
    Dim x1 As Double, x2 As Double
    
    ' Считывание коэффициентов
    a = Val(TextBox1.Text)
    b = Val(TextBox2.Text)
    c = Val(TextBox3.Text)
    
    ' Вывод самого уравнения
    lblEquation.Caption = "Уравнение: " & a & "x^2 + " & b & "x + " & c & " = 0"
    
    ' Расчет дискриминанта
    D = b ^ 2 - 4 * a * c
    
    ' Вывод решения
    If D < 0 Then
        LabelResult.Caption = "Дискриминант: " & D & vbNewLine & "Уравнение не имеет действительных корней"
    ElseIf D = 0 Then
        LabelResult.Caption = "Дискриминант: " & D & vbNewLine & "Уравнение имеет один корень: " & vbNewLine & "x = " & (-b / (2 * a))
    Else
        x1 = (-b + Sqr(D)) / (2 * a)
        x2 = (-b - Sqr(D)) / (2 * a)
        LabelResult.Caption = "Дискриминант: " & D & vbNewLine & _
                              "Уравнение имеет два корня" & vbNewLine & _
                              "x1 = " & x1 & vbNewLine & _
                              "x2 = " & x2
    End If
End Sub

' Код для Варианта №4 (добавьте на форму еще одну кнопку для этого)
Private Sub CommandButton2_Click()
    Dim x As Double, z As Double
    x = Val(TextBox1.Text)
    
    Select Case x
        Case Is < 0
            z = (1 + 2 * x) / (1 + x ^ 2)
        Case 0, 1
            z = 1
        Case Is > 1
            z = Sin(x) ^ (0.2 * x)
        Case Else
            z = 0
    End Select
    
    LabelResult.Caption = "Результат варианта 4 при x=" & x & " равен " & z
End Sub