VBA 字典表现得很疯狂

VBA 字典表现得很疯狂

Sub VBA_Dictionary_Example()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加元素
    dict.Add "apple", "苹果"
    dict.Add "banana", "香蕉"
    dict.Add "orange", "橙子"
    
    ' 访问元素
    MsgBox dict("apple")
    MsgBox dict("banana")
    MsgBox dict("orange")
    
    ' 修改元素
    dict("apple") = "红苹果"
    
    ' 删除元素
    dict.Remove "banana"
    
    ' 遍历字典
    For Each key In dict.Keys
        MsgBox key & ": " & dict(key)
    Next key
End Sub

Sub Student_Grade_Management()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加学生成绩
    dict.Add "张三", 90
    dict.Add "李四", 85
    dict.Add "王五", 95
    
    ' 访问学生成绩
    MsgBox "张三的成绩是：" & dict("张三")
    MsgBox "李四的成绩是：" & dict("李四")
    MsgBox "王五的成绩是：" & dict("王五")
    
    ' 修改学生成绩
    dict("张三") = 92
    
    ' 删除学生成绩
    dict.Remove "李四"
    
    ' 遍历字典
    For Each key In dict.Keys
        MsgBox key & "的成绩是：" & dict(key)
    Next key
End Sub