在vbscript中使用对象设置数组索引时出错？

Question

我正在尝试在vbscript中创建一个对象数组，其中每个对象都有一个字符串和一个数字作为属性。该字符串来自不同的数组，并且该数字在循环中递增。

<小时/> 这是在newValues(i) = (New Pet)(values(i), number)行上发生的错误：

<小时/> ......这是我的代码：

Class Pet
    Public objectName
    Public objectNumber

    ' constructor here:
    Public Default Function Init(name, number)
        objectName = name
        objectNumber = number

        Set Init = Me
    End Function
End Class

values = Array(_
    "Cat",_
    "Dog",_
    "Bird"_
)

number = 3
ReDim newValues(uBound(values))

For i = 0 to uBound(values)
    newValues(i) = (New Pet)(values(i), number)
    number = number + 1
Next

Answer 1

分配对象时使用Set。

Set newValues(i) = (New Pet)(values(i), number)