在字典里循环，字典教程

win2009

1. 
   
2. '以下代码复制到记事本，保存后修改后缀为 .vbs
   
3. 
   
4. '双击该文件 ，弹出对话框显示字典每一项内容
   
5. 
   
6. Dim d '创建一个变量
   
7. Set d = CreateObject("Scripting.Dictionary")
   
8. d.Add "0", "Athens" '添加键和项目
   
9. d.Add "1", "Belgrade"
   
10. d.Add "2", "Cairo"
    
11. For Each I In d
    
12. MsgBox "关键字: " & I & " 对应项 " & D.Item(I)
    
13. Next
    
14. 
    
15. 在字典里循环.rar (726 Bytes, 下载次数: 145)
    2014-6-22 18:05 上传

    点击文件名下载附件
    
    
16. 
    
17. '数组可以修改元素的值，但是不能删除元素
    
18. 
    
19. '字典 可以添加 删除 关键字及对应项
    
20. 
    
21. '字典 可以修改 关键字对应的项的值
    
22. 
    
23. '如：
    
24. 
    
25. 'd（arr(i，1)) = ""
    
26. 'd（arr(i，1)) = d（arr(i，1) + 1
    
27. 
    
28. '以上两句 就是修改关键字对应值的方法，实现无错添加
    
29. 
    
30. '而一般情况 添加关键字 对应项 的方法是：
    
31. 
    
32. 'd.Add "2", "Cairo"
    
33. 
    
34. '如果 添加已经存在的 关键字 就会提示错误
    
35. 
    
36. '修改方法绕过 错误，也就是钻了规则的“空子”
    
37. 
    
38. 'For Each 循环 可以 在集合 和数组之内循环，
    
39. 
    
40. '而字典就是下标 基于0 的开始的数组，所以，
    
41. 
    
42. '直接循环，就可以提取想要的 k 和 t，
    
43. 
    
44. '没了

复制代码

mmwwdd

这种帖子必须顶

jiminyanyan

最好有实例说明。。。。

人生太极

收藏学习了

志哥

字典还有这样的用法
学习了

ak47ok

每次回帖、谢谢！辛苦了。

ruitree

详细学习字典的各种用法

zymwhy

学习了，学习了