visual basic - δευτεροβάθμια εξίσωση

[fotisman]

Προσπαθω να φτιάξω ένα πρόγραμμα (vb) που να βρίσκει τις ρίζες μια εξίσωσης 2ου βαθμού. Όμως βγάζει λάθος αποτελέσματα... δε καταλαβαίνω τι κάνω λάθος...

 

Ο κώδικας είναι :

 

>
x1.Text = "--"
x2.Text = "--"
Do
a = InputBox("dose to a")
b = InputBox("dose b")
c = InputBox("dose c")
Loop Until a <> 0 Or b <> 0 Or c <> 0

If a <> 0 Then
d = (b ^ 2) - (4 * a * c)
   If d > 0 Then
     x1.Text = ((- + (Sqr(d)) / (2 * a))
     x2.Text = ((- - (Sqr(d)) / (2 * a))
     MsgBox "exei 2 rizes", 64, "result"
   ElseIf d = 0 Then
     x1.Text = (- / (2 * a)
     MsgBox "exei mia diplh", 64, "result"
   Else
     MsgBox "den orizetai sto R", 48, "result"
   End If
Else
If b <> 0 Then
   x1.Text = (-c) / b
   MsgBox "exei mia lysh", 64, "result"
Else
   If c <> 0 Then
     MsgBox "adynath", 48, "result"
   Else
     MsgBox "aoristh", 48, "result"
   End If

End If
End If
End Sub

 

Κάθε βοήθεια δεκτή...

Ευχαριστώ

[gtroza]

fotisman

 

x1.Text = ((- + (Sqr(d)) / (2 * a))

 

νομίζω οι αγκύλες δεν είναι σωστές.

[Zzzzz]

Nai. tha prepe na einai

 

x1.Text = ( (- + Sqr(d) ) / (2 * a)