Sub testSet()

    Dim c As New Collection

    c.Add ("A")

    c.Add (2)

    c.Add ("A")

    For i = 1 To c.count

        Debug.Print (c.Item(i))

    Next

End Sub

output:

A

2

A

最新文章

1. git文件迁移到新架构
2. 收集免费可用稳定的vpn
3. neXtep 安装过程整理
4. 关于Java内存模型的解读
5. 【转】BitKeeper与Linux，git史前琐事
6. Ubuntu 14.04下安装JDK8
7. 配置mysql5.5主从服务器(转)
8. 怎么将java项目打包成双击就可以运行的jar包---fatjar
9. VxWorks 6.9 内核编程指导之读书笔记 -- C++开发
10. 最短路SPFA
11. IPCS资源
12. IO-02
13. GO数值和字符串的相互转换
14. 开源一款iOS中国地图行政区控件（含一级与二级行政区）
15. C#利用微软企业库Enterprise Library配置mysql数据库
16. linux的sed命令（一）
17. H5新特性---Web Worker---Web Stroage
18. 【进阶3-4期】深度解析bind原理、使用场景及模拟实现（转）
19. centOS 安装gitlab-runner
20. 用CSS来画空心三角形的方法

热门文章

1. Div的几种选择器
2. 解决django中的跨域问题
3. Github搜索优质项目方法
4. input点击焦点后阴影
5. 781. 森林中的兔子 (Medium)
6. C++实现线性表-顺序表的合并操作代码
7. git 代码强制回滚操作整理（线上线下一起）
8. layui弹出层layer点击关闭还会显示在html中
9. windows使用爱思助手制作越狱 U 盘教程
10. UniCode 下char*转CString ，利用MultiByteToWideChar进行转换，中文乱码的解决方案