Una ecuación cuadrática es un polinomio de segundo grado que tiene la forma " . Ax ^ 2 + bx + c = 0 " La "a ", " b" y " c" son las constantes y " x " es la variable. Al resolver una ecuación de segundo grado , debe tener los valores de las constantes y resolver para x , que siempre da dos valores , llamados las "raíces ". En Visual Basic, puede escribir un programa o función que pide al usuario que introduzca los valores de a, b, c , encontrar las raíces y luego mostrar los valores del formulario. Instrucciones
1

Abra un nuevo programa de Visual Basic . Haga doble clic en la herramienta "Botón " para añadir Button1 al formulario. Haga doble clic en la herramienta "Etiqueta" dos veces para añadir Label1 y Label2 al formulario.
2

doble clic en " Button1 " en el formulario para abrir la ventana de código . Escriba el siguiente código: Dim a

Como Decimal = InputBox ("Escriba A: " )

Dim b Como Decimal = InputBox ( "Enter B :")

Dim c Como Decimal = InputBox ("Escriba C :")

cuadráticas (a, b , c )

las primeras tres líneas de solicitar al usuario los valores de las constantes . A continuación, llama un sub llamado " cuadrática " y pasa a las constantes como argumentos para ello.
3

Inserte el cursor fuera de los sub Button1 . Escriba el siguiente código: Private Sub

cuadrática ( ByVal Como un decimal , b ByVal como Decimal, ByVal c Como Decimal)

raíces Dim ( 1 ) As String Dim

disco x1 , x2 , As Decimal
disco

= b ^ 2 - 4 * a * c

La primera línea crea las sub cuadráticas y acepta tres argumentos . A continuación, se define una matriz con dos temas para las dos raíces . A continuación, crea tres variables decimales y asigna el valor del discriminante , que determina el número de raíces de la ecuación cuadrática tiene
4

Escriba el siguiente código: .

Si el disco > = 0 entonces

x1 = (-b + Math.Sqrt (disco) ) /( 2 * a)

x2 = ( -b - Math.Sqrt (disco) ) /( 2 * a)
raíces

( 0 ) = x1.ToString
raíces

( 1 ) = x2.ToString

demás
raíces

( 0 ) = " (- "& b.ToString y " + sqrt ( "& disc.ToString &") ) /( 2 * " y a.toString & ") "

raíces ( 1 ) =" (- "& b.ToString & " - Sqrt (" & disc.ToString & ") ) /( 2 * " & a.toString & ") "

End If

Los " si" función comprueba para ver si el valor del discriminante es mayor que o igual a cero , lo que significa que la ecuación tiene uno o dos raíces . A continuación, se resuelve para x . Si el discriminante es menor que cero , la ecuación no tiene raíces reales y la parte "else " se ejecuta , que muestra las complejas ecuaciones raíces
5

Escriba el siguiente código: .

Label1.Text = raíces ( 0 )

Label2.Text = raíces ( 1 )

End Sub

Estas líneas de código simplemente mostrar las raíces de las etiquetas y cierre bloque de código del sub cuadrática .
6

Guardar el programa de Visual Basic . Pulse la tecla "F5 " para ejecutarlo.