楼主说：一个sb给出了这个代码，让我很气愤！不看清问题就回答！
很多人就不敢回答你的问题了。
实际上总体上讲，那个人的回答不算错，也能完成你的任务。只是不是最好的算法。他的代码，改称实用的代码如下：
Dim str
Dim i As Integer
For i=0 to list1.listcont-1'这里listcont这个词不一定对，你自己在vb环境可以看到正确的。
str=Split（list1.lindex(i),";")
list2.add str(0)'这里add的后面也许还有item什么的
list3.add str(1)
Next
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024