equazione secondo grado

Private Sub CommandButton1_Click()
Dim a, b, c, d As Double
Dim x1, x2 As Double
a = ax1.Text
b = bx1.Text
c = cx1.Text
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
End If

If d = 0 Then
discriminante.Caption = d
verifica.Caption = "due soluzioni reali coicidenti"
soluziox.Caption = "x1=" & x1
soluzioy.Caption = "x2=" & x2
End If
If d > 0 Then
discriminante.Caption = d
verifica.Caption = "due soluzioni reali distinte"
soluziox.Caption = "x1=" & x1
soluzioy.Caption = "x2=" & x2
End If
If d < 0 Then
discriminante.Caption = d
verifica.Caption = "soluzione nel campo complesso"
d = -(b ^ 2 - 4 * a * c)
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
soluziox.Caption = "x1=" & x1 & "i"
soluzioy.Caption = "x2=" & x2 & "i"
End If
End Sub

Private Sub CommandButton2_Click()
ax1 = ""

bx1 = ""

cx1 = ""

soluziox.Caption = ""
soluzioy.Caption = ""
verifica.Caption = ""
discriminante.Caption = ""
ax1.SetFocus
End Sub

Private Sub UserForm_Click()

End Sub

inizio