不会在列表框中显示VB

时间:2013-05-04 21:46:07

标签: arrays vb.net function vba listbox

所以,我试图显示足球队得分的统计数据。 在执行此操作时,阵列已经填满,什么不是。 打开此表单时,我希望它显示最高,最低和平均分数.... 我想让它获得球员的名字和最高分和分数。例如:

    Maximum: John scored 9

    Minimum: Joe scored 2

就像,我将获得strPlayers(i)的名称和intScores(i)的得分值。 我很确定我的功能是正确的,但无论出于何种原因,我都无法在加载表单时在列表框中显示任何内容!

Public Class frmDisplayStatistics

Function FindMaximum() As String
    Dim max As Integer
    Dim i As Integer = 0

    ReDim intScores(intNumberOfPlayers)

    max = CInt(intScores(0))
    For i = 0 To intNumberOfPlayers
        If max < intScores(i) Then
            max = CInt(intScores(i))
        End If
    Next


    max = strPlayers(i) & " scored maximum points of " & intScores(i)


    Return max

End Function

Function FindMinimum() As Integer
    Dim min As Integer
    Dim i As Integer = 0

    ReDim intScores(intNumberOfPlayers)

    min = CInt(intScores(0))
    For i = 0 To intNumberOfPlayers

        If min > intScores(i) Then
            min = CInt(intScores(i))


        End If

    Next


    Return min

End Function

Function FindAverage() As Double
    Dim average As Double
    Dim i As Integer = 0


    average = total / intNumberOfPlayers

    Return average

End Function

Private Sub frmDisplayStatistics_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim max As String
    max = FindMaximum()
    lstStatistics.Items.Add(max)
    lstStatistics.Items.Add("Minimum: " & FindMinimum())
    lstStatistics.Items.Add("Average: " & FindAverage())



End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
    Me.Close()
End Sub
End Class

最大值返回字符串的原因以及最小和平均返回数字的原因是因为我尝试了不同的方法,这也没有用。 :/

1 个答案:

答案 0 :(得分:1)

假设您在表单load事件中获取变量max中的数组。然后你应该循环数组。如下所示

for i = 0 to max.count -1
     listbox.item.add(i)
 next

此外,您需要将变量max声明为数组。希望你明白我的观点