- 建立一个控制台工程:输入代码:
-
Dim I As Integer Dim MyNames As Collection'在集合中添加10个元素 For I = 1 To 10 MyNames.AddItem("student" & I) Next MyNames.InsertItem("student", 8)'以下两行在集合中插入元素 MyNames.InsertItem("student11", 4) For I = 1 To MyNames.count Print MyNames.Item(I) Next Sleep
此题使用了第三方定义的Collection集合,因此需要定义代码,由于代码较多,因此放在Coll.txt文件(含正文代码)中供参考,使用时直接复制粘贴在自己的空代码文件里即可。
例021:用集合添加学生信息
最新推荐文章于 2024-07-10 21:37:49 发布