下面又来了一个循环, list1.removeitem 删除列,删除的是 list1.listcount - i ,list1.listcount 就是总列数为10,减去 i ,i 是1到4,即10-1,9-2,8-3,7-4 每减掉一次,list1.listcount 就少了一条记录。
(注意,list1.listcount-1 是最后一条记录)
减掉了第 9,7,5,3列
剩余为 1,3,6,15,28,45
结果为:3,15,28
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'亏你提醒了,我写错了,上面修改了,第一个索引为0,最后一个为9.
'也就是,问题所问的第二列的索引为1,第四列的索引为3...
省事的办法不如是建立一个集合。添加可以用集合的Add方法
要遍历所有的数据可以用For…Each语句
如:
Dim
a
As
New
Collection
a.Add
("a")
a.Add
("b")
a.Add
("c")
a.Add
("d")
a.Add
("e")
Dim
s
For
Each
s
In
a
List1.AddItem
s
Next
这样可以在List1中添加这五个元素
或者用
Dim
i
As
Integer
For
i
=
0
To
a.Count-1
List1.AddItem
a.Item(i)
Next
也可以实现遍历
删除可以用Remove方法
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)