计算机二级
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（
题目
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
相似问题和答案
第1题：
设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
A．List1.Text
B．List1.Index
C．List1.List
D．List1.ListIndex
第2题：
窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是
A．0
B．10
C．01234
D．程序出错
解析：ListCount属性返回控件列表部分项目的个数。要对列表框中的每个项目都能进行处理，必须要用到List(Index)属性，而该属性的下标值是从0开始的。变量s为变体型变量，List属性内的内容是字符型的，所以加号(+)起到了连接作用。上述程序运行的结果只是将列表框中的内容连接起来。选项C是正确的。
第3题：
给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop
A．List1.AddltemList2.List(0)
B．List1.Addltem List2.Text
C．List2.AddltemList1.List(0)
D．List2.AddltemList1.Text
第4题：
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （ k ） Then
List2.AddItem List1.List （ k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
第5题：
设窗体上有一个列表框控件List1，且其中含有若干列表项，则以下能表示当前被选中的列表项内容的是 ______。
A．List1.List
B．List1.ListIndex
C．List1.Index
D．List1.Text
解析：列表框的List属性表示列表框的内容，为数组，下标为o～n-1，n表示列表框的项数。ListIndex属性表示选中的列表框项目的位置，第一项从。开始。Text属性才是表示指定当前选中的列表框项目的文本内容。
第6题：
设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
A．List1.List
B．List1.ListIndex
C．List1.Index
D．List1.Text
解析：本题考查了列表框的几个比较容易混淆的属性。其中List用来列出列表框中表项的内容，可与“(下标)”组合使用；ListIndex表示已选中表项的位置；Index仅仅对于控件数组有用，对于单个控件没有意义；Text属性返回最后一次选中的表项的文本，它不能直接在设计阶段修改。故本题的正确答案为D。
第7题：
设窗体上有—列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
A．List1.List
B．List1.List1ndex
C．List1.Index
D．List1.Text
解析：其中List用来列出列表框中表项的内容，可与“(下标)”组合使用；List1ndex表示已选中表项的位置；Index仅仅对于控件数组有用，对于单个控件没有意义；Text属性返回最后一次选中的表项的文本，它不能直接在设计阶段修改。
第8题：
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
解析：For k=Listl．ListCount-1 To O Step-l／*循环倒序遍历List1中的所有内容*／If List1．selected(k)Then ／*如果被选中，那么*／
List2．Addltem Listl IJistl．List(k) ／*List2中增加选中的条目*／
List1．Removeltem k ／*把选中条目移除*／
End If ／$结束条件If*／
Next k ／*查看Ljst1中下一条目*／
所以正确的答案为c)。
第9题：
（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop
【解析】AddItem方法的一般格式为：object.AddItem Item,Index其中，“Item”用来指定添加到该对象的项目；“Index”用来指定新项目或行在该对象中的位置，第一项为0。如果所给出的Index值有效，则Item将放置在object中相应的位置。如果省略Index，当Sorted属性设置为True时，Item将添加到恰当的排序位置；当Sorted属性设置为False时，Item将添加到列表的结尾。
分析程序可知，程序是要通过循环来将List2中的项逐个添加到List1中，但因为是给List1添加一项，同时删除List2一项，因此添加项的索引号（ListIndex）始终是第1项0，因此添加项的语句是“List1.AddItem List2.List(0)”。
注意：①当列表框中的列表项被删除一项时，剩余的列表项会从0开始重新排序：②在本题中省略Index，则每次都自动添加到列表框尾部。