Discussion :

[nabilfaouzi]

salut

J'ai besoin d'aide: je suis débutant et j'ai un problème dans un énoncé pour calculer la moyenne des notes saisie dans un listbox.

Voici mon code et je vous prie de me trouver la faute.
Je pense que j'ai une faute de calcul de la somme des notes mais je ne sais pas comment la résoudre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub ajout_Click()
If Val(note.Text) <= 20 And note.Text <> "" Then
List1.AddItem (note.Text)   ' ajouter les element du textbox à la listbox
End If
End Sub
'-------------------------------------------------------------------
Private Sub calcul_Click()      'calculer la moyenne
 
Dim i As Integer
Dim som As Single
Dim moy As Single
 
som = 0
 
For i = 1 To List1.ListCount  'calculer la somme des note saisie dans la listbox
som = som + List1
Next i
moy = som / i   'calculer la moyenne
 
moyenne.Text = Str(moy)
End Sub

[zazaraignée]

Essaie plutôt

1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To List1.ListCount  'calculer la somme des note saisie dans la listbox
som = som + List1.List(i)
Next i
moy = som / ( i - 1)   'calculer la moyenne

2. lire le mode d'emploi du forum et les règles du forum.

[nabilfaouzi]

ça ne marche pas!
merci de votre réponse et j'attend toujours

[nabilfaouzi]

merci b1 voici la correction de ma faute
code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 0 To List1.ListCount - 1 'calculer la somme des note saisie dans la listbox
som = som + List1.List(i)
Next i
moy = som / i
moyenne.Text = Str(moy)
End Sub