Επίλυση δευτεροβάθμιας εξίσωσης με Visual Basic

Επίλυση δευτεροβάθμιας εξίσωσης
Πηγή: Wikipedia

Α) Δίνονται οι συντελεστές α, β και γ από εξίσωση

Β) Υπολογίζουμε τη διακρίνουσα

Γ) Αν Δ<0 τότε δεν υπάρχει λύση και χ1=αδύνατο και χ2=αδύνατο
Δ) Αν Δ=0 τότε χ1=χ2=-β/2α

Ε) Αν Δ>0 τότε

χ1 = ( - β +

) / 2α

 και

χ2 = ( - β -
) / 2α


Παρατηρήσεις
α<>0
α, β και γ ακέραιοι (a, b, c integer)
Δ ακέραιος (d integer)

Χ1 και Χ2 πραγματικοί (x1, x2 single)

Ο κώδικας στο κουμπί "Επίλυση" είναι:

Private Sub Command1_Click()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x1 As Single
Dim x2 As Single
a = Text1
b = Text2
c = Text3
If a = 0 Then
MsgBox "To α δεν μπορεί να είναι 0"
GoTo 10
End If
d = b ^ 2 - 4 * a * c
If d < 0 Then
Text4 = "Μη πραγματική ρίζα"
Text5 = "Μη πραγματική ρίζα"
End If
If d = 0 Then
x1 = -b / (2 * a)
x2 = -b / (2 * a)
Text4 = x1
Text5 = x2
End If
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Text4 = x1
Text5 = x2
End If
10 End Sub