你这个问题出在 d.Keys(0) 上。d.Keys 方法返回包含字典的所有关键字的一维数组,但是该方法不能直接使用类似 d.Keys.Item 的样式引用其中的元素。必须先将返回的数组赋值给一个数组变量,类似:Dim Arr As VariantArr=d.Keysd.Key(Arr(0)) = "牛一斤"