爲什麼我的數組超出範圍？

Question

Option Strict On 
Option Explicit On 
Module Module1 
Sub Main() 
    Dim HowMany As Integer 
    Dim nameArray(HowMany) As String 
    Dim HourlyWageArray(HowMany) As Double 
    Dim HoursWorkedArray(HowMany) As Integer 
    Dim GrossPayArray(HowMany) As Double 
    Dim x As Integer = 0 

    Console.WriteLine("How many employees?") 
    HowMany = CInt(Console.ReadLine()) 

    Do While x < HowMany 
     Console.WriteLine("Employee name: ") 
     nameArray(x) = CStr(Console.ReadLine()) 
     Console.WriteLine("Hourly rate: ") 
     HourlyWageArray(x) = CDbl(Console.ReadLine()) 
     Console.WriteLine("Hours worked: ") 
     HoursWorkedArray(x) = CInt(Console.ReadLine()) 
     If HoursWorkedArray(x) <= 40 Then 
      GrossPayArray(x) = HourlyWageArray(x) * HoursWorkedArray(x) 
     ElseIf HoursWorkedArray(x) > 40 Then 
      GrossPayArray(x) = ((HoursWorkedArray(x) - 40) * (HourlyWageArray(x) * 1.5)) + (40 * HourlyWageArray(x)) 
     End If 
     x = x + 1 
    Loop 
    Console.WriteLine("{0,12:c} {1,12} {2,12:c} {3,12:c}", nameArray, HourlyWageArray, HoursWorkedArray, GrossPayArray) 


    Console.ReadLine() 

End Sub 

End Module 

在第17行，nameArray（x）= CStr的（到Console.ReadLine（）），收到錯誤 「類型的未處理的異常 'System.IndexOutOfRangeException' 發生」

無論什麼值I輸入對於HowMany，嘗試輸入第二個員工姓名時發生此錯誤。

Answer 1

您在聲明陣列後正在定義HowMany。 nameArray在第三行定義，當HowMany可能爲0時，nameArray將有零個條目。在定義nameArray之前，您應該從控制檯讀取HowMany。