Entrez les lignes de code suivantes exactement comme ils apparaissent ci-dessous:
AverageMyNumbers sub ()
Dim strData sous forme de chaîne
Dim i, sglNbr, sglSubT, sglAverage Comme Simple
i = 0
Faire jusqu'à strData = "X"
strData = InputBox ("Entrez les nombres à la moyenne, un à la fois, en appuyant sur "Entrée" de continuer à le prochain numéro. Entrez un X majuscule lorsque vous avez terminé.")
sglNbr = Val (strData)
sglSubT = sglNbr + sglSubT
i = i + 1
Boucle
sglAverage = sglSubT / (i - 1)
MsgBox ("La moyenne de ces nombres est " & sglAverage)
End Sub