Bellow请在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
问题在于计算结果错误。 任何评论都将非常感激。
塞西莉亚
答案 0 :(得分:0)
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