arrays - リスト ボックス VB に表示されません

Question

だから、サッカーチームの得点の統計を表示しようとしています。これが実行されている時点で、配列はすでに満たされています。このフォームが開いたら、最大、最小、および平均スコアを表示したいと思います.... プレーヤーの名前と、最大および最小のスコアを取得したいと考えています。例えば：

    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

最大値が文字列を返し、最小値と平均値が数値を返す理由は、別のアプローチを試みていたため、それもうまくいきませんでした。:/