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

我试图在vbscript中创建一个对象数组，其中每个对象都有一个字符串和一个数字作为属性。字符串来自另一个数组，该数字在循环中递增。

---

下面是出现的错误，在

newValues（i）=（newpet）（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

---

指定对象时使用

Set

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

---

指定对象时使用

Set

<代码>设置新值（i）=（新宠物）（值（i），编号）谢谢@Bond，将此作为答案发布，我将接受！