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