下列程序的功能是：依次将列表框List2中的项目移入列表框Listl中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 LoopA．Do Until List2.ListCountB．Do While List2.ListCountC．Do Until List1.ListCountD．Do While List1.ListCount - 牛搜题

niusouti.com

题目

下列程序的功能是：依次将列表框List2中的项目移入列表框Listl中，并将列表框List2中移走的项目删除，给程序的空白行选择适当的语句( )。 List1.Addltem List2.List(0) List2.ReMoveltem 0 Loop

A．Do Until List2.ListCount

B．Do While List2.ListCount

C．Do Until List1.ListCount

D．Do While List1.ListCount

相似考题

1.在窗体上画一个名称为Listl酌列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：______。A． Private Sub Listl_Click() Labell.Caption=Listl.ListIndex End SubB．Private Sub Listl_Click() Labell.Name=Listl.ListIndex End SubC．Private Sub Listl_click() Labell.Name=Listl.Text End SubD．Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub

2.（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop

3.窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：Private sub Commandl_Click()For k：Listl．ListCount_l To 0 step-1Tf Listl．Selected(k)ThenList 2．AddItern Listl．List(k)Listl．Removehem kEnd IfNext kEnd Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是A．在List2中插入了“外语”、“物理”两项B．在Listl中删除了“外语”、“物理”两项C．同时产生A)和B)的结果D．把Listl中最后1个列表项删除并插入到List2中

4.（10）在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表List2中所有列表项目移入列表框List1中的项目从List2中的项目从List2中删除。 Do While List2.ListCount List2.RemoveItem0 Loop

更多“下列程序的功能是:依次将列表框List2中的项目移入列表框Listl中,并将列表框List2中移走的项目删 ”相关问题

第1题：

在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
A．Private Sub Listl_Click() Labell.Capfion=Listl.Listlndex End Sub
B．PrivateSubLial click() Labell.Name=Listl.Listlndex End Sub
C．PrivateSubListl click() Labell.Name=Listl.Text End Sub
D．Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub

正确答案：D
解析：Label的Caption属性表示标签控件中显示的内容。List的Text属性表示列表框中当前被选中的项目的值．故欲将列表框中选中的名称显示在标签中只需将其Text属性值赋给Label的Caption属性即可．
第2题：

阅读以下应用说明以及用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

正确答案：(1)Listl.Text (2) Listl.ListCount- (3) Listl.List(i) (4) List2.Lisfindex (5) List2.Clear
(1)Listl.Text (2) Listl.ListCount- (3) Listl.List(i) (4) List2.Lisfindex (5) List2.Clear 解析：本题涉及常用的列表框技术。
列表框常用的属性如下：
ListCount列表框内的数据项个数
List(o)，List(1),... 列表框中从上到下各个数据项内容
Text列表框中当前选中的数据项内容
Listlndex列表框中当前选中的数据项的序号
列表框常用的方法如下：
AddItem列表框尾部增加一个数据项(参数给出数据项内容)
RemoveItem列表框中删除指定的数据项(参数给出待删的数据项序号)
Clear删除列表框中的全部数据项
本题中有两个列表框List1和List2，以及四个按钮。
按钮“＞”的功能是将列表框List1中选中的一个数据项复制到列表框List2的尾部。 List1中当前所选的数据项内容是List1.Text。为避免重复，在复制前，应先判断它是否已经位于List2中。List2中，已有的数据项个数为List2.ListCount。各个数据项内容为： List2．List(O)，List2．List(1)，…，因此可以用循环语句来实现这种比较。如果发现重复，则退出该过程(不再复制)。将Listl.Text复制到List2的尾部，可以用如下语句实现：
List2．Addltem Listl,Text
因此，(1)处应填写Listl.Text。
如果List1中没有选中任何数据项，则上述复制语句自动作为空语句执行。
注意，如果不修改列表框属性“MultiSelect”的默认值(O)，用户在列表框中就不能同时选择多个数据项。
按钮“＞＞”的功能是将List1中的全部数据项复制到List2中去。为避免重复，在复制前，应全部删除List2中的所有数据项。将List1中的逐个数据项：List1.List(O)， Listl．List(1)，…，逐个复制到List2中，可以用循环语句来实现。List1中的数据项个数为List1．ListCount，因此，循环次数就是List1．ListCount。循环变量i从0开始执行循环，直到Listl.ListCount-1。因此(2)处应填写Listl．ListCount-1。循环体内执行数据项复制，将Listl．List(i)增添到List2的尾部：
List2．Addltem Listl.List(i)
因此，(3)处应填写Listl.List(i)。
按钮“”的功能是将List2中当前选中的数据项删除。由于删除数据项用Removeltem方法实现，其参数为选中数据项的序号值，所以，应该用语句：
List2.RemoveltemList2.Listlndex
来实现。因此(4)处应填写List2.Listlndex。
如果List2中没有选择任何数据项(此时List2．Listlndex==1)，则上述语句会出现运
行错误。为避免这种情况发生，可以将上述语句限制在List2．Listlndex＞=O的条件下执行。
按钮“”的功能是删除List2中已经有的全部数据项，因此可以采用语句：
List2.Clear
来实现。因此，(5)处应填写List2.Clear。
第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

正确答案：A
第4题：

在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A．PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End Sub
B．PriVate Sub List1_Click() Labell.Name=listl.ListIndex End Sub
C．Private Sub List1_Click() Labell.Name=Listl.Text End Sub
D．Private Sub List1_Click() Labell.Caption=List1.Text End Sub

正确答案：D
解析：本题考查列表框的属性。列表框属性是历年考试重点，考生应多做相关练习。本题要注意区分ListIndex与Text属性。 ListIndex指被选中项的下标，而Text表示被选中项的内容。List1.Listlndex表示被选中的项本身，而 List1.Text表示被选中项的内容，故本题正确答案是A。同时本题还涉及Name与Caption的区别，考生也要注意区分。
第5题：

在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。
Private Sub Form. load()
Listl.AddItem “北京”
List1.AddItem “上海”
List1.AddItem “河北”
End Sub
Private Sub ______()
Labell.Caption=______
End Sub

正确答案：List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl
List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick , Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl 解析：由于本程序要响应列表框的双击事件，故第一处应填：Listl_DblClick。指明List1所属的窗体也可以，上面的答案是等价的。列表框的Text属性返回被选中的列表框的内容，根据题意，第二处应该填：List1.Text。同时由于Text属性是列表框的属性值，可以省略不写，故上述答案是等价的。

相关内容