Exists 方法

[code] Function KeyExistsDemo   Dim d, msg              '[/code]创建一些变量。[code]  Set d = CreateObject("Scripting.Dictionary")[/code][code]  d.Add "a", "Athens"     '[/code]添加一些键和项目。[code]  d.Add "b", "Belgrade"[/code][code]  d.Add "c", "Cairo"[/code][code]  If [b]d.Exists([/b]"c"[b])[/b] Then[/code][code]    msg = "[/code]指定的键存在。[code]"[/code][code]  Else[/code][code]    msg = "[/code]指定的键不存在。[code]"[/code][code]  End If[/code][code]  KeyExistsDemo = msg[/code][code]End Function[/code]