VBScript tworzy tablicę w funkcji na podstawie parametru

Question

Good Day,

Tworzę funkcję VBScript, aby zwrócić tablicę. Ale chcę przekazać parametr wielkości tablicy.

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

    CreateArray = someArray 
End Function 

Ale ja dostaję błąd:

Przewidywana całkowita stała

Czy to możliwe do zrobienia w VBScript?

TIA,

Coson

Answer 1

Tak. Używasz oświadczenia Redim:

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