Ora, non ti sei spiegato molto bene, ma se questa ? la sezione .NET, ti scrivo il codice cirretto in VB.NET:
Public Sub esempio
Try
Dim risultato As Int64
Dim a As Int64
For a = 0 To lstNumeri.Items.Count-1
risultato += CInt(lstNumeri.Items.Item(a))
Next
risultato /= lstNumeri.Items.Count
MsgBox("Il risultato ? " & risultato,msgboxstyle.information)
catch ed as system.invalidcastexception
msgbox("Un elemnto non ? un numero!",msgboxstyle.exclamation)
catch er as system.invalidcastexception
msgbox("Errore di cast!",msgboxstyle.exclamation)
End Try
End Sub
|