在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