从列表框中移出条目:
removeitem 要移动的项的序号(序号从0开始) clear:清除列表框的内容 例1:
dim i as integer,n as integer n=5 i=1
do while i<=n print 20 n=n-1 i=i+1 loop ?n,i
以上程序输出3次20,并且n为2,i为4 例2:
dim i as integer,n as integer n=5
for i=1 to n step 1 print 20 n=n-1 next i
?n,i
以上程序输出5次20,并且n为0,i为6
while循环每次都要判断条件（计算条件),而for循环在循环的第一次就确定的条件，以后不再改变for i=1 to n step 1 无论n在循环中如何变，那么i<=第一次的n
3、常用的事件
列表框最经常使用的是：Click（鼠标单击）事件和 DbClick（鼠标双击）事件，单击表示当前选中的项目。
(15)组合框(combo):由文本框和列表框构成.因此在很多属性和列表框相同.如listcount,list(i)等等.
style组合框的样式， ０ 下拉式组合框（缺省值）
１ 简单组合框（列表已显示，不可下拉） ２ 下拉式列表框（文本框中不允许输入）
例:编写程序,在窗体上建立两个列表框,两个命令按钮,如图所示,程序运行时,在第一个列表框中选择所需要的项目,单击”添加”按钮,把所选择的项目移动到第二个列表框,如果单击”删除”按钮,则执行相反的操作.在第二个列表框中,允许同时选择多个项目,第二个列表框必须要排序.
例：新建一个如图所示的表窗体，运行时，列表框中会列出四项:日本，美国，中国，俄罗斯,当单击“添加”时，则将左边所选的项添加到右边，当单击“全部添加”时，则全部添加到右边,当选择“移去”时，则将右边所选的项添加到左边，当选择全部移去时，则将右边全部移到左边.
添加的代码:
第一种方法:如果列表框不能进行多选: List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
第二种方法:(列表框无论单选，多选都可以)则添加中的代码改为如下(不能用for 循环) Dim i As Integer i = 0
Do While i <= List1.ListCount - 1 If List1.Selected(i) Then
List2.AddItem List1.List(i) List1.RemoveItem i Else
i = i + 1 End If Loop
全部添加代码: 第一种:for 循环: dim i as integer
for i=0 to list1.listcount-1 list2.additem list1.list(0) list1.removeitem 0 next
考虑:将0改为i会如何?? 第二种:do while 循环 dim i as integer i=0
do while i<=list1.listcount-1 list2.additem list1.list(0) list1.removeitem 0 loop '不用写i=i+1
考虑：如果写i=i+1会怎样
移去只需要将添加的代码中list1改为list2,list2改为list1 全部移去只需要将全部添加的代码中的list1改为list2,list2改为list1