[分享]DICTIONARY(字典)对象 补遗（一）

liujy

收藏了!谢谢楼主分享.

nawong

学习了!谢谢分享.

tzxw

学习一下

lpz001

谢谢，喜欢这个“垃圾桶”！[em23][em23]

ncow

谢谢了，正在学习啊

ncow

Dim d As New Dictionary
        arr = Array(1, 1, 1, 1, 2, 3, 22, 4, 2, 24, 8, 5, 5, 4, 5, 4, 43, 6, 8, 9, 0, 0)
        For i = 0 To UBound(arr)
            s = d(arr(i))
        Next
    arr = d.Keys
请问这里的s=d(arr(i))是什么意思啊，是把d(arr(i))赋值给s吗，但s又没有定义

而且我在VBA里运行以上代码时，查看监视窗口，s的值是不会变的，一直都是空值，

请教啊，我不懂

ldy888

当你调用一个字典中没有的key时

字典自动添加一个key，并且对应的item为empty

s 等于 Empty， 因为尚未初始化的「不定型变量」都等于 Empty

如果dim s as long

d(arr(i))就是 0

彭希仁

Dim d As New Dictionary
        arr = Array(1, 1, 1, 1, 2, 3, 22, 4, 2, 24, 8, 5, 5, 4, 5, 4, 43, 6, 8, 9, 0, 0)
        For i = 0 To UBound(arr)
            s = d(arr(i))
        Next
    arr = d.Keys

这个相当高,第一次见到这种写法我还以为写错了呢.今天总算字典入门了

northwolves

QUOTE:

以下是引用彭希仁在2007-11-22 20:40:21的发言：

Dim d As New Dictionary
        arr = Array(1, 1, 1, 1, 2, 3, 22, 4, 2, 24, 8, 5, 5, 4, 5, 4, 43, 6, 8, 9, 0, 0)
        For i = 0 To UBound(arr)
            s = d(arr(i))
        Next
    arr = d.Keys

这个相当高,第一次见到这种写法我还以为写错了呢.今天总算字典入门了

        For i = 0 To UBound(arr)
           d(arr(i))  = s
        Next

彭兄见过这个吧,呵呵

ldy888

彭兄 这么说让俺脸红[em04]