Bonjour, comment faire une résolution d'une equation du second degré si possible en language Visual Basic ?
Merci.

http://www.google.fr/search?hl=fr& [...] ogle&meta=

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