大佬们问个问题，字典可以直接引用数组么比如:dim arr

字典是独立对象，你上面的代码没有对定义的字典变量dc有任何处理的过程，因此最后的dc(arr(6))也是不行的。需要有以下过程：
for i=1 to ubound(arr)
dc(arr(i))=i
next i
字典dc才会有实际的内容存在，完整的代码是：
Dim dc
Dim arr(1 To 6)
Set dc = CreateObject("scripting.dictionary")
For i = 1 To 6
arr(i) = i
Next i
For i = 1 To 6
dc(arr(i)) = i
Next i
MsgBox (dc(arr(6)))

不能

谢谢！