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 - 4 * 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 duas soluções reais.")
End If
If delta = 0 Then
x1 = -b / (2 * a)
x1 = x2
TextBox4.Text = Math.Round(x1, 2)
TextBox5.Text = Math.Round(x1, 2)
Label7.Text = ("A equação tem uma solução reais.")
End If
If delta < 0 Then
MessageBox.Show("A equação dada não tem soluções reais.")
TextBox4.Text = ("-")
TextBox5.Text = ("-")
Label7.Text = ("A equação não tem soluções reais.")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
End Class