- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 字典的应用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147628)
-- 发布时间：2020/3/20 16:53:00
-- 字典的应用
我构建了一个字典，现在要通过删除值的方式来删除字典里相应的键和值，但是Remove方法好像只能制定键，不能制定值，请问该怎么解决
-- 发布时间：2020/3/20 17:22:00
--
遍历处理
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) = "苹果" then zd.Remove(k)
if zd(k) = "苹果" then zd.Remove(k)
Next
-- 发布时间：2020/3/21 14:45:00
--
指定键和指定值
-- 发布时间：2020/3/21 14:46:00
--
好的，谢谢
-- 发布时间：2020/3/23 13:09:00
--
此主题相关图片如下：企业微信截图_15849359553718.png
你给我的代码提示这个内容
-- 发布时间：2020/3/23 14:27: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 i As Integer = zd.keys.count - 1 To 0 Step -1
Dim k As Integer = zd.keys(i)
If zd(k) = "苹果" Then zd.Remove(k)
Next