关于vbscript中的结构中使用动态数组的问题

Question

Class node
Public a()
Public n
End ClassDim anode
Set anode = new node
anode.n = 5 ReDim anode.a( anode.n)
print anode.n在使用redim语句时报错，该如何处理

Answer 1

数组是不能用public来进行传递的

Answer 2

你可以在类函数中定义：(node)
dim a() as string
dim n as integer
Public Sub ProductLst(lstpro() As String)
a = lstpro
End Sub
然后调用:
Dim anode as node
Set anode = new node
anode.n = 5 
dim aaa() as string
redim aaa(n) as string
call ProductLst(aaa() As String)
print anode.n