Question

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

问题在于计算结果错误。任何评论都将非常感激。

塞西莉亚

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

添加列表框中的项目

1 个答案: