Usa la programación vb para resolver ecuaciones cuadráticas de una variable
Subcomando privado 1_Click()
Tamaño a#, b#, c#, d#, x1#, x2#
A = Val(InputBox("a= ","cuadro de entrada de datos", 1))
B = Val(InputBox("b=" "cuadro de entrada de datos",2))
C = Val(InputBox("c= ","entrada de datos box", 1))
Si a = 0, entonces
Si b = 0, entonces
Si c = 0, entonces imprima "Solución: " Terminará
Otros
d = b * b - 4 * a * c
Si d & gt entonces 0
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
imprimir " solución :x 1 = " & x1,
Imprimir " x2 = " & ampx2
Otro
x1 = -b / (2 * a) p >
Si d = 0, entonces imprima "Solución: x = "&;x1
Si d & lt entonces 0
Imprima "Sin raíz real"
p>
Terminará si...
Terminará si...
Terminará si...
Conector final