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