Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
创新互联建站网站建设公司是一家服务多年做网站建设策划设计制作的公司,为广大用户提供了做网站、成都网站建设，成都网站设计，一元广告，成都做网站选创新互联建站，贴合企业需求，高性价比，满足客户不同层次的需求一站式服务欢迎致电。
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55
下面又来了一个循环， 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...
第一题：
arrylist属于数组列表，特点是对于大小不可知的情况，可使用arrylist，可动态的添加删除元素
第二题：
这个属于集合的，只不过其中的一种，访问方式类似
相关连接：
建议你多使用F1，对于自己不明白的地方，直接F1，会弹出MSDN的帮助文件，很详细的。。。
