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