VBScript基于参数在函数中创建数组

你好

我正在创建一个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中可以这样做吗

蒂亚

---

科森是的。您可以使用

Redim

语句：

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