这只是我的一段代码,但它给我带来了问题。代码的预期目的是获取用户输入并使其成为数组的大小。但是,无论我输入什么值,它都会给我错误“索引超出数组范围”。
这是代码:
Option Explicit On
Option Strict On
Imports System
Module numbers
Sub Main()
'index decides number of candidates.
Dim index as integer
Dim candidate(index) as integer
Console.Write("Please enter the number of candidates in the election: ")
index=Convert.toInt32(Console.Readline())
Do Until candidate(index) >= 0
Console.Write(" Enter the name of candidate: ")
candidate(index)=Convert.toInt32(Console.Readline())
candidate(index) -=1
Loop
End Sub
End Module