Red de conocimiento informático - Problemas con los teléfonos móviles - Código de programa VB para encontrar ecuaciones cuadráticas de una variable

Código de programa VB para encontrar ecuaciones cuadráticas de una variable

Ejemplo:

Encontrar la ecuación cuadrática de ax^2+bx+c=0

Subcomando privado1_Click()

Atenuar a#, b#, c#, gen #

a = InputBox("Ingrese el valor de A")

b = InputBox("Ingrese el valor de B")

c = InputBox ( "Ingrese el valor de C")

Si a = 0 y b = 0 y c = 0 entonces

Imprima "El valor de x es el número real entero."

De lo contrario, si a = 0 y b = 0 y c <> 0, entonces

Imprimir "¡El valor de x no existe!"

De lo contrario, si a = 0 y b < > 0 Entonces

Imprimir "El valor de x1 es "; (-c / b)

ElseIf a <> 0 Y (b ^ 2 - 4 * a * c) > = 0 Entonces

gen = (b ^ 2 - 4 * a * c) ^ 0.5

Imprimir "El valor de x1 es " ((-b - gen) / ( 2 * a))

Imprimir "El valor de x2 es "; ((-b + gen) / (2 * a))

ElseIf a <> 0 Y ( b ^ 2 - 4 * a * c) <0 Entonces

Imprimir "¡El valor de x no existe!"

EndIf a <> 0 Y (b ^ 2 - 4 * a * c) <0 Entonces

Imprimir "¡El valor de x no existe!

End If

End Sub