Programación VB para encontrar las dos raíces de ax^2 bx c=0. Suponga que hay dos raíces. Utilice inputbix para entrada y m para salida.

Private?Form_Click()'Haga clic en el formulario para ejecutar

Dim?a?As?Single,?b?As?Single,?c?As?Single,?s? Como ?Único

a?=?Val(InputBox("a=?"))

b?=?Val(InputBox("b=?"))

c?=?Val(InputBox("c=?"))

s?=?b?^?2?-?4?*?a?*?c

Si?s?lt;?0?Entonces

MsgBox?"¡Esta ecuación no tiene solución!"

Else

MsgBox?"El solución a esta ecuación Las dos raíces son: "?amp;?(-b? ?Sqr(s))?/?(2?*?a)?amp;?", "?amp;?(-b?- ?Sqr( s))?/?(2?*?a)

Fin?Si

Fin?Sub