单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（　　）。A 在List2中插入了“外语”“物理”两项B 在List1中删除了“外语”“物理”两项C 同时产生A项和B项的结果D 把List1中最后一个列表项删除并插入到List2中

设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click（ ） Dim ch As String ch=List1．List(List1．Listlndex) List1．RemoveItem List1．Listlndex List1．Addltem ch End Sub 程序运行时，单击一个列表项，则产生的结果是（ ）。

A.该列表项被移到列表的最前面

B.该列表项被删除

C.该列表项被移到列表的最后面

D.该列表项被删除后又在原位置插入

（ 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 中

设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（ ）。

A.Private Sub Command1 Click（ ） List1，Clear End Sub

B.Private Sub Command1 Click（ ） List1．Clear List1．ListIndex End Sub

C.Private Sub Command1 Click（ ） List1 Removeltem List1．ListIndex End Sub

D.Private Sub Command1 Click（ ） List1．Removeltem End Sub

在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图4所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的，最大值(或最小值)，并显示在标签Label2中。 请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹中有一个工程文件sjt4．vbp。窗体上已有控件，如图5所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到List2中，同时在List1中清除该项目。若单击“>>”按钮，List1 中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为“显示”的命令按钮，一个名称为List1的列表框。要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。

要求：

修改列表框的适当属性，使得运行时可以多选；去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。

执行list1.list(list1.listcount)=“80”会()。

A.会产生错误信息

B.list1列表框最后一个表项被改为“80”

C.list1列表框会增加一个“80”表项

D.指定list1列表框的表项个数为80个

Aint和tuple

Bint和int

Ctuple和tuple

Dtuple和int

设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。

[应用说明]

某应用程序在运行过程中的一个界面如下图所示：

在“供选课程”列表框(名为Listl)中选择某个课程后，再单击“，”按钮(名称为cmdSelect)，就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项)：如果单击“＞＞”按钮(名称为cmdSelAll)，就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项)；如果在“所选课程”列表框中选中某个课程，再单击“＜”按钮(名称为emdDelete)，就会从List2中删除该课程(未选课程时应不做处理)；如果单击“＜＜”按钮(名称为cmdDelAll)，就会从List2中删除所有已选课程。

[Vsual Basic 程序代码]

Private Sub CmdSelect_Cliek()

For i = O To List2.ListCount - 1

If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择

Next i

List2.Addltem (1) '在List2中增添List1中所选的项

End Sub

Private Sub CrndSelAll_Click()

List2.Clear '先删除List2中的已有项

For i = 0 To (2) '对List1中所有各项做循环处理

List2.Addltem (3) '将该项增添到 List2中

Next i

End Sub

Private Sub CmdDelete_Cliek()

If List2.Listlndex ＞= O Then '如果List2中有选中的项,

List2.Removeltem (4) '则删除所选的项

End If

End Sub

Private Sub CmdDelAll_Cliek()

(5)

End Sub

在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。

要求；

修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。

在考生文件夹下有工程文件execise20.vbp及窗体文件execise20.frm。在窗体Form1上有一个名为List1的列表框，列表框中有若千的列表项，通过属性窗口设置列表框的 MultiSelect属性为1。还有两个命令按钮，名称分别是Cmd1和Cmd2，标题分别是Select All和Save(如下图所示)。要求在程序运行时，单击Select All按钮则将List1中的全部列表项选中，然后单击Save按钮，将List1中的全部列表项写入文本文件out20.txt中，并将out20.txt保存在考生文件夹下。

注意：

该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。

窗体上有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中

给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框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

窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。

Private Sub Command1_Click()

If list1.text=””or list2.text””then

Msgbox”请选择交换的物品！”

Else

List1.additem list2.text

List2.removeitem【11】

【12】

List1.removeitem list1.listindex

End If

End Sub