Visual Basic：使用二维数组的垂直条形图，索引越界

如何解决Visual Basic：使用二维数组的垂直条形图，索引越界

我最近开始使用 Visual Basic，遇到了二维数组的问题。我的程序设计为从用户那里获取 5 个整数，然后输出与这些数字对应的 5 个垂直高度条。条形从底部开始，这意味着在数字低于输入的最高数字的情况下，列的顶部由空格而不是星号组成。在遍历数字数组并将星号放入多维数组中的相关位置时，我收到“索引越界”错误。

Sub Main()
    Dim Numbers(4) As Integer
    WriteLine("Enter 5 numbers:")
    For i = 0 To 4
        Numbers(i) = ReadLine()
    Next
    Dim ChartLimit As Integer = Numbers.Max
    Dim Chart(4,ChartLimit - 1) As String
    Dim Filled_bar As Integer
    Dim Bar_counter As Integer = 0
    For Each Number In Numbers
        Filled_bar = ChartLimit - Number
        For i = Filled_bar - 1 To ChartLimit - 1
            Chart(Bar_counter,i) = "*"
        Next
        Bar_counter += 1
    Next
    For i = 0 To 4
        For k = 0 To ChartLimit - 1
            Write(Chart(i,k))
        Next
        WriteLine()
    Next
    ReadKey()
End Sub