Media all'interno di una list box

Buonasera, ho riscontrato un problema nella scrittura del codice per eseguire la media dei dati in una listbox e visualizzare appunto la media in una label. Qualcuno può aiutarmi? grazie mille

Originariamente inviato da Elia Zanotta

Qualcuno può aiutarmi?

Probabilmente sì. Specialmente se dici qual è questo problema e se mostri come hai tentato di risolverlo.

Ecco il codice che ho scritto:
*Variabili

dim numero as single 
Dim media as single 
Private sub btnmedie_click(.....)
Dim somma as single 
Somma = 0 
Numero = val(lsbvinfo.items)
Somma = somma + numero 
Media = somma/ numero 
Lblmvinfo = media 
End class

Molto probabilmente è proprio sbagliato il codice.
Puo dirmi lei come scriverebbe un codice per fare la media con elementi che stanno al interno di una listbox?
Scusi per la poca abilità.

Il codice va inserito tra tag CODE. Leggi il regolamento del forum.

Comunque, il codice che hai scritto non ha alcun senso ... cerca di chiarire perché così non si capisce nulla.

Sai cosa è una media di n numeri e come si calcola?

Una ListBox contiene una lista, un elenco di elementi. Devi scorrerli tutti ciclicamente per ottenere una somma.
Una Sub non può terminare con End Class.

La "media" è il valore che si ottiene dividendo la somma di un determinato gruppo di numeri per il numero di elementi che lo compongono.
ma questa è matematica, e dovresti conoscere.

Nel tuo caso devi sfruttare le proprietà della ListBox

LIstBox List1.List che è appunto la lista di tutti i numeri
List1.Listcount -1 (la numerazione parte da zero) che è il numero di elementi .

Come ti ha detto Brontolo li devi scorrerli tutti ciclicamente ( For....Next ) per ottenere la somma
che dividerai per il numero di elementi ottenendo la media.