Dans le code suivant, il y a deux erreurs :

Sub Epreuves1()

Dim i As Integer

Dim nom As String, n As String

Dim x As Single, y As Single, z As Single

Dim c1 As Single, c2 As Single, c3 As Single

Dim m As Single

n = MsgBox(« Donnez le

nombre d’étudiants »)

c1 = InputBox(« Donnez

le coefficient de la première épreuve »)

c2 = InputBox(« Donnez

le coefficient de la deuxième épreuve »)

c3 = InputBox(« Donnez

le coefficient de la troisième épreuve »)

For i = 1 to n

      nom = InputBox(«Donnez le nom de

l’étudiant»)

      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*c1 + y*c2 + z*c3) / (c1 +c2 +c3)

MsgBox

« La moyenne de l’étudiant » & nom &

« est : »  & m

Next

End Sub