主题：[求助]

比较麻烦，如

Dim zd As New Dictionary(Of String, Integer)
zd.Add("苹果",5)
zd.Add("香蕉",9)
zd.Add("波罗",2)
zd.Add("桔子",1)

Dim mval As Double = 0
Dim mkey As String = ""
For Each key As String In zd.Keys
    If zd(key) > mval Then
        mval = zd(key)
        mkey = key
    End If
Next

msgbox(mkey & " " & mval)