以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  字典  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103296)

--  作者：wangjh8888 --  发布时间：2017/7/5 10:33:00 --  字典 请问老师：一字典：Dim zd As New Dictionary(Of 键类型, 值类型) 可以由键值得到其对应的值： For Each k As Integer In zd.Keys \'显示所有键及其对应的值     Output.Show(K & ":" & zd(k)) Next 可不可以反过来 由其值得到对应的键值？

--  作者：有点甜 --  发布时间：2017/7/5 10:38:00 --   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 key As String In zd.keys \'显示所有值     Output.Show(zd(key))     If zd(key)="香蕉" Then         msgbox(key)     End If Next

--  作者：wangjh8888 --  发布时间：2017/7/5 10:48:00 --   嗯嗯  谢谢