Fórmula resolvente Para equações do 2° grau

Ver código Ver imagens

Código

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Decimal
        Dim delta, X1, X2 As Decimal



        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        delta = b * b - a * a * c
        If delta > 0 Then
            X1 = (-b + Math.Sqrt(delta)) / (2 * a)
            X2 = (-b - Math.Sqrt(delta)) / (2 * a)
            TextBox4.Text = Math.Round(X1, 2)
            TextBox5.Text = Math.Round(X2, 2)
            Label7.Text = "A equação tem 2 soluções reais"


        End If
        If delta = 0 Then
            X1 = -b / 2 * a
            X2 = X1
            TextBox4.Text = Math.Round(X1, 2)
            TextBox5.Text = Math.Round(X2, 2)
            Label7.Text = "A equação tem uma solução dupla"
        End If
        If delta < 0 Then
            Label7.Text = "A equação não tem soluções reais"
            MessageBox.Show("A equação dada não tem soluções reais.")

        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()

    End Sub

Imagens