金字塔学院

# Keys 方法

object.Keys

返回一数组，其中包含有 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
1
2
3
4
5
6
7
8
9
10
11
12
应用于