CHE HA CHE NON VA??? (EQ 2° IN VB)

[Mat-ita]

Ciao ragazzi x compito mi e stata data da fare un equazione di secondo grado con il visual basic editor di excel ma mi da "errore di compilazione, sub o function non definita":confused: :confused: che ha che non va??? grazie :)

Option Explicit
Function equazione(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As String
Dim delta As Integer
Dim x1 As Double
Dim x2 As Double
If a = 0 Then
equazione = "Non è un equazione di secondo grado"
Else
delta = b * b - 4 * a * c
If delta >= 0 Then
x1 = (-b -aqrt (delta)) / 2 * a
x2 = (-b +sqrt (delta)) / 2 * a
equazione = "le soluzione sono" & x1 & x2
Else
equazione = "non esistono soluzioni reali"
End If
End If
End Function

[Fenomeno85]

tra che devi fare sqrt del delta ;) poi per l'errore non mi ricordo come sistemarlo.


~§~ Sempre E Solo Lei ~§~

[Minelab]

Non c'entra con il problema ma delta lo dichiarerei come Double non Integer.
Lo devi proprio scrivere così oppure puoi anche utilizzare un pulsante di comando?
Un'altra domanda: dove lo vedresti il risultato?

[Fenomeno85]

Non c'entra con il problema ma delta lo dichiarerei come Double non Integer.
Lo devi proprio scrivere così oppure puoi anche utilizzare un pulsante di comando?
Un'altra domanda: dove lo vedresti il risultato?

il risultato non va da nessuna parte :D ... ne visualizzato e ne va in qualche cella. E' qualcosa fine a se stessa sta funzione :D


~§~ Sempre E Solo Lei ~§~

[Ziosilvio]

x1 = (-b -aqrt (delta)) / 2 * a
Il punto che ho evidenziato in grassetto, c'era anche nel programma o è un errore di scrittura in questo post?

[Mat-ita]

c'e solo in sto post!
cmq il risultato non lo vedrei delle celle di exel?

[Fenomeno85]

Il punto che ho evidenziato in grassetto, c'era anche nel programma o è un errore di scrittura in questo post?

avrò sbagliato a scrivere.

Cmq se vuole visualizzare a video può fare due cose:

1) usare msgbox
2) usare cells


~§~ Sempre E Solo Lei ~§~