香蕉   波罗  桔子  苹果  桃子

  2     3     4     1     5

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
zd.Remove(1) \'移除键1及其对应的值
zd.Remove(5) \'移除键5及其对应的值
Output.Show(zd(2)) \'显示键2对应的值
Output.Show(zd(3)) \'显示键3对应的值
If zd.ContainsKey(1) = False Then \'是否存在键1
    zd.Add(1,"苹果")
End If
If zd.ContainsValue("桃子") = False Then \'是否存在值"桃子"
    zd.Add(5,"桃子")
End If
For Each k As Integer In zd.Keys \'显示所有键及其对应的值
    Output.Show(K & ":" & zd(k))
Next
For Each v As String In zd.Values \'显示所有值
    Output.Show(v)
Next
zd.Clear \'清除所有的键和值

5:桃子

2:香蕉

3:波罗

4:桔子

1:苹果

经过推理应该是

  香蕉   波罗  桔子  苹果  桃子

  2        3       4      1     5

啊。

计算机怎么计算成

5:桃子

2:香蕉

3:波罗

4:桔子

1:苹果

这样的了