字典应用的六个方法

本文介绍字典中最常用的六个方法

Private Sub CommandButton1_Click()
Dim d                   '创建一个变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
    If d.exists("a") = True Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
End Sub
Private Sub CommandButton2_Click()
    Dim d                   '创建一个变量
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "a", "Athens"     '添加一些关键字和条目
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"
        k = d.keys
        [a1].Resize(d.Count, 1) = Application.Transpose(k)
End Sub
Private Sub CommandButton3_Click()
    Dim d                   '创建一个变量
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "a", "Athens"     '添加一些关键字和条目
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"
        k = d.items
        [b1].Resize(d.Count, 1) = Application.Transpose(k)
End Sub
Private Sub CommandButton4_Click()
Dim d                   '创建一个变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
    d.Remove ("a")
    If d.exists("a") = True Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
End Sub
Private Sub CommandButton5_Click()
Dim d                   '创建一个变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
    d.RemoveAll
    If d.exists("b") = True Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
End Sub

发表评论

电子邮件地址不会被公开。 必填项已用*标注