主题：[求助]怎么获取字典变量中某个值的键值

要循环

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
For Each k As Integer In zd.Keys '显示所有键及其对应的值
    If zd(k) = "香蕉"
        msgbox(K & ":" & zd(k))
    End If
Next