Dans le code suivant, il y a deux erreurs :

Sub Epreuves2()

Dim n As Integer, i As Integer

Dim nom As String

Dim maxnom As Double

Dim x As Single, y As Single, z As

Single

Dim m As Single, maxm As Single

maxnom=«»

maxm=0

n

= InputBox(« Donnez le nombre d’élèves »)

For

i = 1 to n

     nom = InputBox(«Donnez le nom de l’élève»)

     x = InputBox(« Donnez la note de la

première épreuve »)

     y = InputBox(« Donnez la note de la

deuxième épreuve »)

    z = InputBox(« Donnez la note de la

troisième épreuve »)

m =

(x + y + z) / (3)

     If

m > maxm Then

          maxm = m

          maxnom = nom

     Next

End If

MsgBox

« L’élève » & maxnom & « a la moyenne maximale » & maxm

End

Sub