Início
Pesquisando na net encontrei esse codigo do Thomas Jefferson
- Código:
Function Báskara(A, B, C As Double) As String
'Os valores devem estar no campo dos Reais
'Caso umas variáveis seja omitida na equação, substitua por 0
'Escrita por Thomas Jefferson Pereira Lopes | redcatmetal@aol.com
If A <> 0 Then GoTo ADiferente0 Else: GoTo AIgual0
ADiferente0:
Dim Delta, X1, X2
Delta = (B ^ 2) - (4 * A * C)
If Delta < 0 Then
GoTo DeltaMenor0
ElseIf Delta = 0 Then
GoTo DeltaIgual0
Else
X1 = (-1 * B + Sqr(Delta)) / (2 * A)
X2 = (-1 * B - Sqr(Delta)) / (2 * A)
Báskara = "X' = " & X1 & ", X'' = " & X2 & ", DELTA = " & Delta & ""
End If
AIgual0:
Báskara = "A tem que ter valor <> de 0"
GoTo Exit_
DeltaMenor0:
Báskara = "Discriminante negativo (" & Delta & "), não há solução no campo dos Reais"
GoTo Exit_
DeltaIgual0:
Báskara = "X'e X'' são iguais = " & X1 & ", porque DELTA = 0"
GoTo Exit_
Exit_:
Exit Function
End Function
