Practica de polinomio

Programa para resolver los polinomios de segundo grado

Private Sub Command1_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)

x = (-B + Sqr(B * B - 4 * A * C)) / (2 * A)

Text4.Text = x

y = (-B - Sqr(B * B - 4 * A * C)) / (2 * A)

Text5.Text = y

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub