更改存储为Vb的数组元素Scripting.Dictionary项目

Question

我喜欢将数组用作与词典中的键相关联的“Items”。这使我能够存储与键相关联的多个值。我想使用相同的方法来更改元素中的元素。但是以下情况不起作用。

dim d
set d = createobject("Scripting.Dictionary")

'populate
d.add "A", Array(0,0)

'Change value of element 0.
d.Item("A")(0) = 1

'Result
WScript.Echo d.Item("A")(0) 'Prints zero instead of 1.

通过将数组保存为临时变量，我可以使它工作，但它更麻烦。

'populate
d.add "A", Array(0,0)

'Change value of element 0.
ar = d.Item("A")
ar(0) = 1
d.Item("A") = ar

'Result
WScript.Echo d.Item("A")(0)

我想知道为什么会出现这种行为，以及更改存储为字典“Item”的数组中单个元素的最佳方法是什么。谢谢你的帮助。