Calcular raíces de una ecuación cuadrática Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que calcule las raíces de una ecuación de segundo grado (ax²+bx+c=0).

Solución

• Entrada: 1 0 9

• Salida: 3 y -3

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim disc, a, b, c, X1, X2 As Double
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        disc = Math.Pow(b, 2) - 4 * a * c
        If (a <> 0) Then
            If ((disc) < 0) Then
                TextBox4.Text = "Tiene raices imaginarias"
            Else
                X1 = (-b + (Math.Sqrt(disc))) / (2 * a)
                X2 = (-b - (Math.Sqrt(disc))) / (2 * a)
                TextBox4.Text = "La raices son X1 = " +
                    Trim(X1) + " X2 = " + Trim(X2)
            End If
        Else
            TextBox4.Text =
        "coeficiente cuadratico debe ser diferente de cero"
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic