字典的4个属性

字典经典用法计数

字典的4个常用属性,d.key,d.item,d.count.d.comparemode使用方法如下

Private Sub CommandButton1_Click()
  Dim d                   '创建一个变量
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "a", "Athens"     '添加一些关键字和条目
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"
      d.Key("a") = "d"
    If d.exists("d") 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"
    MsgBox d.Item("b")
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"
    MsgBox d.Count
End Sub
Private Sub CommandButton4_Click()
  Dim d                   '创建一个变量
  Set d = CreateObject("Scripting.Dictionary")
    d.comparemode = 0 'VBTEXTCOMPARE 不区分大小写
    'vbbinarycompare 区分大小写 1
    d.Add "a", "Athens"     '添加一些关键字和条目
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"
    d.Add "A", "ABVCD"
End Sub

发表评论

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