返回一数组,其中包含有 Dictionary 对象的所有现存键。
object.Keys
object 应为 Dictionary 对象的名称。
下列代码举例说明如何使用 Keys 方法:
Function DicDemo Dim a,d,i
'
创建一些变量。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
'
循环使用数组。s = s & a(i) & "<BR>"
'
返回结果。Next
DicDemo = s
End Function
新闻热点
疑难解答