Sub EquationSecondDegre()
Dim A as single, B as single, C as single, Delta as double
Msgbox "Une équation du second degré est de la forme ax² + bx + c = 0"
A = Inputbox("Entrer la valeur du coefficient a : " )
B = Inputbox("Entrer la valeur du coefficient b : " )
C = Inputbox("Entrer la valeur du coefficient c : " )
Delta = B*B-4*A*C
IF Delta>0 Then
X1 = (-B+Delta^0.5)/2/A
X2 = (-B-Delta^0.5)/2/A
Msgbox "Le discriminant est positif, les solutions de cette équation sont : X1 = " & X1 & " et X2 = " & X2
ELSE
IF Delta=0 Then
X = (-B/2/A)
Msgbox "Le discriminant est nul, la solution de cette équation est : X = " & X
ELSE
Msgbox "Le discriminant est négatif, cette équation n'admet pas de racine réelle."
END IF
END IF
Msgbox "Nous vous remercions d'avoir utilisé ce programme."
Msgbox "Au revoir et à bientôt."
End Sub
