VBScript根据参数在函数中创建一个数组

Question

美好的一天，

我正在创建一个VBScript函数来返回一个数组。但我想传递一个数组大小的参数。

Function CreateArray(arraySize)
    Dim someArray(arraySize)               ' EXPECTED INTEGER CONSTANT
    For i = 0 to UBound(someArray)
        someArray(i) = 5
    Next

   CreateArray = someArray
End Function

但是我收到了错误：

预期的整数常量

这可以在VBScript中完成吗？

TIA，

COSON

Answer 1

是。您使用Redim语句：

Function CreateArray(arraySize) 
    Dim someArray()               
    Redim someArray(arraySize)
    For i = 0 to UBound(someArray) 
        someArray(i) = 5 
    Next 
    CreateArray = someArray 
End Function