物件数组传入 sub 时, vb 为何不会自动初始化

Question

Private Sub Form_Load()Dim c(2) As New Collection
Dim c2 As New Collection
Set t = c2QQ2 c2 ' 成功 , VB 会自动初始化c(0).Add 123 ' 成功 , VB 会自动初始化QQ2 c(1) ' 成功 , VB 会自动初始化QQ c ' 失败 , 只要透过 sub 呼叫时, class 是以数组型态传递, VB 就不不会自动初始化End SubSub QQ(c() As Collection)
c(2).Add 1
End Sub
Sub QQ2(c As Collection)
c.Add 1
End Sub

Answer 1

特意帮你测试这段代码，除了有几处语法错误外，没发现什么异常。就算是你标明的“ 失败”那一行，执行之后集合的内容也会有变化，跟前面两行差不多。倒是"QQ2 c2 ' 成功 , VB 会自动初始化"这一行执行后，C没有任何变化，这是因为加入时C2还是没内容的，所以一个集体加一个空集，还是等于本身。

Answer 2

除了有几处语法错误外 ???有错误 ?? 愿闻其详 RUN 时并未有任何错误