VB对象数组不能放入对象

VB自定义了一个people类，为什么将创建的people对象放入peoples数组时会报“对象变量或with块变量未设置”
Sub 宏5()
Dim peoples(99) As people
For i = 0 To 98
Set p = New people
peoples(i) = p
Next
End Sub

Chat GPT尝试为您解答，仅供参考
在 VBScript 中，创建一个新的 people 对象时，需要使用 Set 语句将其赋值给一个对象变量。但是在你的代码中，你是直接将新创建的 people 对象赋值给了 peoples 数组的一个元素，这样做是错误的。

为了将新创建的 people 对象放入 peoples 数组中，你需要先使用 Set 语句将 people 对象赋值给一个对象变量，然后将这个对象变量赋值给 peoples 数组的相应元素。例如：

Dim peoples(99) As people
For i = 0 To 98
    Dim p As people
    Set p = New people
    peoples(i) = p
Next

这样就可以正确地将新创建的 people 对象放入 peoples 数组中了。