VBScript tạo một mảng trong hàm dựa trên tham số

Question

Ngày tốt,

Tôi đang tạo hàm VBScript để trả về mảng. Nhưng tôi muốn chuyển một tham số cho kích thước mảng.

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

    CreateArray = someArray 
End Function 

Nhưng tôi nhận được một lỗi:

nguyên dự kiến ​​liên tục

Đây có phải là có thể làm được trong VBScript?

TIA,

coson

Answer 1

Yes. Bạn sử dụng câu lệnh Redim:

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