добавление элементов в ListBox

Question

пыльник пожалуйста найти код в VB 2008. Я должен суммировать числа в xlistscorebox

Dim tot As Integer 
    Dim scoresentered As Integer 
    For index As Integer = 0 To Me.xListscoreBox.SelectedItems.Count - 1 
     tot = tot + Val(Me.xListscoreBox.SelectedItems.Count) 
     For se As Integer = 0 To Me.xListscoreBox.SelectedItems.Count - 1 
      scoresentered = Me.xListscoreBox.SelectedItems.Count 
     Next 
    Next 

    Me.xscoreave.Text = tot/scoresentered.ToString 
    Me.xtotalscoreTextBox.Text = tot.ToString 
    Me.xtotscoreentered.Text = scoresentered.ToString 

Вопрос заключается в том, что расчет дает неверные результаты. Любой комментарий будет высоко оценен.

Сесилия

Answer 1

Dim TotalScore as Integer 
For Each x As String In Me.xListscoreBox.SelectedItems 
    TotalScore = TotalScore + Convert.ToInt32(x) 
Next 
dim AverageScore as Decimal = TotalScore/Me.xListscoreBox.SelectedItems.Count 
dim ScoresEntered = Me.xListscoreBox.SelectedItems.Count