Equation second degré

r

Bonjour ci-joint ton devoir:

Sub racines()
    Dim a As Double, b As Double, c As Double, delta As Double, racine1 As Double, racine2 As Double
    'demande des coefficients
    a = InputBox("Donnez le coefficient du X^2")
    b = InputBox("Donnez le coefficient du X")
    c = InputBox("Donnez le coefficient de l'entier")
    'calcul du delta
    delta = b * b - (4 * a * c)
    'si delta négatif pas de solution réelle fin du programme
    If delta < 0 Then
        MsgBox ("Il n'existe pas de solution réelle")
        Exit Sub
    End If

    'si delta nul une solution réelle
    If delta = 0 Then
        racine1 = -b / 2 * a
        MsgBox ("La seule solution est: X = " & racine1)
    'sinon deux solutions
    Else
        racine1 = (-b + Sqr(delta)) / 2 * a
        racine2 = (-b - Sqr(delta)) / 2 * a
        MsgBox ("Les solutions sont: X1 = " & racine1 & " et X2 = " & racine2)
    End If
End Sub

Sub moyenne()
    Dim n As Integer
    Dim somme As Double
    Dim i As Long
    'demande du nombre de nombres à rentrer
    n = InputBox("Combien de nombres voulez vous rentrer (n)?")
    'boucle sur la demande de nombres et somme
    For i = 1 To n
        somme = somme + InputBox("Vous devez rentrer un nombre. Ceci est le nombre rentré numéro " & i)
    Next i
    'affiche le résultat
    MsgBox ("La moyenne des " & n & " nombres est de : " & somme / n)
End Sub