常见字典用法集锦及代码详解

306445391 · 发表于 2012-9-19 14:17

刚开始学习字典，2楼第二个实例的说明第六条：6、d(Arr(i, 1)) = “” ：这句代码的意思就是把关键字Arr(i,1)加入字典，关键字对应的项为空，相当于字典中的这个关键字没有解释。和d.Add Arr(i,1), ""的效果相同，只是代码更简洁一些。这一点有问题，代码里不能直接用d.Add Arr(i,1), ""，是不是新版的office改过啊，不知道。如果原来添加过一个关键字a，再添加的时候就会报错。用d.Item(Arr(i, 1)) = ""，这个倒是可以，请楼主解释下？是不是我的理解有问题

dy_ysl · 发表于 2012-9-20 11:05

先留下印记，慢慢来消化

cxh2010 · 发表于 2012-9-23 16:52

非常了不起啊，谢谢了版主

name004 · 发表于 2012-9-25 19:50

蓝桥玄霜发表于 2010-10-18 12:48
实例1 普通常见的求不重复值问题
一、问题的提出：
表格中人员有很多是重复的，要求编写一段代码，把重复 ...

实例1总是报错，错误13，类型不匹配

蓝桥玄霜 · 发表于 2012-9-25 21:43

是用这个附件测试的吗？
经测试没有出错。

蓝桥玄霜 · 发表于 2012-9-25 21:47

306445391 发表于 2012-9-19 14:17
刚开始学习字典，2楼第二个实例的说明第六条：6、d(Arr(i, 1)) = “” ：这句代码的意思就是把关键字Arr(i, ...

用d.Add Arr(i,1), ""时，需要增加判断：
x = Arr(i, i)
      If Not d.exists(x) Then
         d.Add x, ""
      End If

306445391 · 发表于 2012-9-26 10:01

蓝桥玄霜发表于 2012-9-25 21:47
用d.Add Arr(i,1), ""时，需要增加判断：
x = Arr(i, i)
If Not d.exists(x) Then

确实，增加一个判断就可以了

爱仂 · 发表于 2012-9-30 21:52

学习了，真得很好，打印出来细细研究@

9910343 · 发表于 2012-10-1 11:55

学习学习学习下

春播秋收 · 发表于 2012-10-1 23:03

谢谢蓝桥老师。

		自动登录	找回密码
密码			免费注册

[原创] 常见字典用法集锦及代码详解