Проект «Решение квадратного урвнения»

Вычисление дискреминанта
Dim a, b, c, d, x1, x2 As Double
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - (4 * a * c)
Text4.Text = d
End Sub

Вычисление корней уравнения
Private Sub Command2_Click()
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
Text5.Text = x1
x2 = (-b - Sqr(d)) / (2 * a)
Text6.Text = x2
Else
x1 = "нет корней"
Text5.Text = x1
Text6.Text = x1
End If
End Sub