Red de conocimiento informático - Problemas con los teléfonos móviles - Usa la programación vb para resolver ecuaciones cuadráticas de una variable

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)

Si d = 0, entonces imprima "Solución: x = "&;x1

Si d & lt entonces 0

Imprima "Sin raíz real"

Terminará si...

Conector final