VB脚本 - 动态数组

Question

我想了解动态数组初始化。在下面的代码中，为什么即使在输入“y”的值之后数组大小仍未设置。即使在给Y赋值为4,5时，Lbound和Ubound都显示为0。

请给我解释一下。谢谢。

Dim i 

Redim arr(y) 

y = cint(InputBox("Enter value of y")) 

Msgbox Lbound(arr) 

Msgbox Ubound(arr) 

Answer 1

你应该REDIM后要求的值。

Answer 2

你正在reDiming什么都没有，因此你什么也没有重做，因此它什么都没有返回。 ReDim更适合在已经声明之后增加数组的大小，而不是用于初始声明。

使用

Dim array(1) as Integer 
y = cint(InputBox("Enter value of x")) 
Redim array(y) 

或者说，不是很高兴看到

y = cint(InputBox("Enter value of x")) 
Dim array(y)