代码如下:
点击(此处)折叠或打开
-
dim list=CreateList()
-
list.Add("张三")
-
list.Add(1)
-
list.Add("李四")
-
-
for each a in list
-
msgbox(cstr(a))
- next
List常用的用法如下:
'清除所有项
list.Clear()
'判断某个项是否存在于List中
bool a = list.Contains("张三")
'项个数
list.Count
'移除某一个项
list.Remove("张三")
'移除某个位置项目
list.RemoveAt(1)
'在某个位置插入一个项目
list.Insert(1, "李四")
'排序
list.Sort()
'反序
aaa.Reverse()
原文地址:http://bbs.delit.cn/thread-201-1-1.html
转载请注明出处;
撰写人:度量科技www.delit.cn