Dim dict
Set dict = CreateObject("Scripting.Dictionary")
'第一种方法
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next
'第二种方法
Dim key
For Each key In dict.keys
msgbox dict(key)
Next
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
'第一种方法
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next
'第二种方法
Dim key
For Each key In dict.keys
msgbox dict(key)
Next