Ficha 6

Private Sub cmd1_Click()

Dim a As Single, b As Single, c As Single

a = Val(oper1.Text)
b = Val(oper2.Text)
c = Val(oper3.Text)

If 2 * a = 0 Then
obs.Caption = "Não tem soluções"
raiz1.Caption = ""
raiz2.Caption = ""
ElseIf b ^ 2 - 4 * a * c = 0 Then
obs.Caption = "Só tem uma solução"
raiz1.Caption = Round(-b / (2 * a), 2)
raiz2.Caption = ""
ElseIf b ^ 2 - 4 * a * c > 0 Then
raiz1.Caption = Round(-b + Sqr(b ^ 2 - (4 * a * c)) / (2 * a), 2)
raiz2.Caption = Round(-b - Sqr(b ^ 2 - (4 * a * c)) / (2 * a), 2)
obs.Caption = ""
Else
obs.Caption = "Não tem soluções em R"
raiz1.Caption = ""
raiz2.Caption = ""
End If

End Sub

Private Sub Sair_Click()
End
End Sub