CUADRATICA

Private Sub Command1_Click()
Dim A As Single
Dim B As Single
Dim C As Single
Dim M As String

A = Text1
B = Text2
C = Text3

D = B ^ 2 - 4 * C

If D > 0 Then
X1 = (-B + Sqr(D)) / (2 * A)
X2 = (-B - Sqr(D)) / (2 * A)
M = "RAICES REALES Y DIFERENTES"
Text4 = X1
Text5 = X2

Else
If D = 0 Then
X1 = -B / (2 * A)
X2 = X1
M = "RAICES REALES E IGUALES"
Text4 = X1
Text5 = X2

Else
M = "RAICES IMAGINARIAS"
End If
End If

Label5.Caption = M

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

Private Sub Command3_Click()
Form2.Hide
Form1.Show

End Sub