VBS字典问题

zss427607

各位老师，字典代码如下：

ArrSheetData数据数据：
ArrSheetData（1，1）=1:ArrSheetData（1，2）="张三1"
.......
ArrSheetData（61，1）=61:ArrSheetData（61，2）="张三61"

For i = 1 To 61
    If Len(ArrSheetData(i,1)) > 1 then
        Dic(Trim(Out_Arr(i,1))) = ArrSheetData(i,2)
    End If
Next
msgbox DIc.count  提示 ”1“，如果 msgbox Dic(Trim(Out_Arr(i,1)))，正常显示循环数据。

各位老师这是咋回事呀

zz100001

这一看就是没有redim
白注册了那么多年，问题都描述不清楚，继续哭吧