Visual Basic语言程序设计
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A 在List2中插入了“外语”“物理”两项B 在List1中删除了“外语”“物理”两项C 同时产生A项和B项的结果D 把List1中最后一个列表项删除并插入到List2中
题目
在List2中插入了“外语”“物理”两项
在List1中删除了“外语”“物理”两项
同时产生A项和B项的结果
把List1中最后一个列表项删除并插入到List2中
参考答案和解析
本题中，点击事件的响应过程：遍历整个List1中的列表项，如果列表项被选中，则将其添加到List2，然后将它们从List1中删除，所以选项A和B都会发生。
相似问题和答案
第1题：
（10）在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表List2中所有列表项目移入列表框List1中的项目从List2中的项目从List2中删除。 Do While List2.ListCount List2.RemoveItem0 Loop
【解析】AddItem方法的一般格式为：object.AddItem Item,Index其中，“Item”用来指定添加到该对象的项目；“Index”用来指定新项目或行在该对象中的位置，第一项为0。如果所给出的Index值有效，则Item将放置在object中相应的位置。如果省略index，当Sorted属性设置为True时，Item将添加到恰当的排序位置，当Sorted属性设置为False时，Item将添加到列表的结尾。
分析程序可知，程序是要通过循环来将List2中的项逐个添加到Listl中，但因为是给List1添加一项，同时删除List2一项，因此添加项的索引号（ListIndex）始终是第1项0，因此添加项的语句是“List1.AddItemList2.List(0)”。
注意：①当列表框中的列表项被删除一项时，剩余的列表项会从0开始重新排序；②在本题中省略Index，则每次都自动添加到列表框尾部。
第2题：
窗体卜有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)。
第3题：
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。
Private Sub Form_Load（）
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 （）
Labe1.Caption= 【10】
End Sub
正确答案: 1.(DblClick) 2.(List1.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的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load()
Fori=1 To 100
If iMod7=
Lisn.Addnem I,Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)
第6题：
（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，则每次都自动添加到列表框尾部。
第7题：
设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。
④打开“代码编辑”窗口添加List1的DblClick事件代码如图5-11所示。
⑤添加List2的DblClick事件代码如图5-12所示。
⑥添加“＞”按钮的Click事件代码如图5-13所示。
⑦添加“”按钮的Click事件代码如图5-14所示。
操作步骤如下： ①在表单中创建2个“列表”控件和2个“命令按钮”控件，并选择好位置和大小。 ②设置控件的字体和字号。 ③表单控件主要属性见表5-3。
④打开“代码编辑”窗口，添加List1的DblClick事件代码，如图5-11所示。
⑤添加List2的DblClick事件代码，如图5-12所示。
⑥添加“＞”按钮的Click事件代码，如图5-13所示。
⑦添加“”按钮的Click事件代码，如图5-14所示。
第8题：
（18）设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是
（ ）。
A）List1.List
B）List1.ListIndex
C）List1.Text
D）List1.Index
（18）【答案】C)
【解析】List属性获得和是列表项数组；Lisrlndex获得的是选项中的索引；Index获得的是控制数组的索引；Text属性获得的是选项中的内容，故答案选D。
第9题：
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。
A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目
C) 【解析】本题考查循环程序的分析以及列表框属性的应用。首先Instr(List1．List(k)，s)语句的作用是在List1．List(k)中从头开始寻找S，找不到则返回0，否则返回S在List1．List(k)中的位置。整个循环体的功能是，从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串，如果存在相同的子串，则把．List1．List(k)全部连接到str中。
第10题：
设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能够表示当前被选中的列表项内容的是______。
A．List1. List
B．List1. ListIndex
C．List1. Index
D．List1. Text
解析：获取当前选定项目值的最简单方法是使用Text属性。Text属性总是对应用户在运行时选定的列表项目。