Ayuda listbox

[pkj]

Utilizad matrices.

Algo como esto:

f=combo1.listindex

contador(f) = contador(f) + 1
acumulador(f) = acumulador(f) + Text1.Text
If Text1.Text < 50 Then
reprobados(f) = reprobados(f) + 1
Else
aprobados(f) = aprobados(f) + 1
End If

for f=0 to combo1.listcount-1
If contador(f) > 0 Then
List1.AddItem "Alumnos en la seccion " & combo1.list(f) & ": " & contador(f)
List2.AddItem "Aprobados seccion " & combo1.list(f) & ": " & aprobados(f)
List3.AddItem "Reprobados seccion " & combo1.list(f) & ": " & reprobados(f)
List4.AddItem "Promedio seccion " & combo1.list(f) & ": " & acumulador(f) / contador(f)
End If
Next f

Suerte