Function DicDemo Dim a,d,i '創(chuàng)建一些變量。Set d = CreateObject("Scripting.Dictionary")d.Add "a","Athens" '添加鍵和項目。d.Add "b","Belgrade"d.Add "c","Cairo"a = d.Keys'獲取鍵。For i = 0 To d.Count -1 '循環(huán)使用數(shù)組。s = s a(i) "BR>" '返回結果。 Next DicDemo = sEnd Function