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
香蕉
波罗
5:桃子
2:香蕉
3:波罗
4:桔子
1:苹果
桃子
香蕉
波罗
桔子
苹果
为什么打印会是5 2 3 1 4 这样的顺序呢，而不是2 3 4 1 5
加好友 
发短信
Post By：2020/9/16 18:12:00 [只看该作者]
