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

单选题
窗体上有List1、List2两个列表框,List1中有若干列表项(如下图所示),并有下面的程序:程序运行时,按照下图所示在List1中选中两个列表项(物理和外语),然后单击Command1命令按钮,则产生的结果是(  )。
A

在List2中插入了“外语”“物理”两项

B

在List1中删除了“外语”“物理”两项

C

同时产生A项和B项的结果

D

把List1中最后一个列表项删除并插入到List2中


参考解析

解析:
本题中,点击事件的响应过程:遍历整个List1中的列表项,如果列表项被选中,则将其添加到List2,然后将它们从List1中删除,所以选项A和B都会发生。

相关考题:

在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Labe1中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。Private Sub Form_Load()List1.AddItem "北京"List1.AddItem "上海"List1.AddItem "河北"End SubPrivate Sub List1 【9】 ()Labe1.Caption= 【10】End Sub

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

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

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

设窗体上有一个名为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.该列表项被删除后又在原位置插入

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

( 31 ) 窗体上有 List1 、 List2 两个列表框 , List1 中有若干列表项 ( 见图 ) , 并有下面的程序:Private Sub Comand1_Click ()For k=List1.ListCount-1 To 0 Step -1If List1.Selected ( k ) ThenList2.AddItem List1.List ( k )List1.RemoveItem kEnd IfNext kEnd Sub程序运行时,按照图示在 List1 中选中 2 个列表项,然后单击 Commandl 命令按钮,则产生的结果是A )在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项B )在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项C )同时产生 A )和 B )的结果D )把 List1 中最后 1 个列表项删除并插入到 List2 中

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。[应用说明]某应用程序在运行过程中的一个界面如下图所示:在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSelect),就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项):如果单击“>>”按钮(名称为cmdSelAll),就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项);如果在“所选课程”列表框中选中某个课程,再单击“<”按钮(名称为emdDelete),就会从List2中删除该课程(未选课程时应不做处理);如果单击“<<”按钮(名称为cmdDelAll),就会从List2中删除所有已选课程。[Vsual Basic 程序代码]Private Sub CmdSelect_Cliek()For i = O To List2.ListCount - 1If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择Next iList2.Addltem (1) '在List2中增添List1中所选的项End SubPrivate Sub CrndSelAll_Click()List2.Clear '先删除List2中的已有项For i = 0 To (2) '对List1中所有各项做循环处理List2.Addltem (3) '将该项增添到 List2中Next iEnd SubPrivate Sub CmdDelete_Cliek()If List2.Listlndex >= O Then '如果List2中有选中的项,List2.Removeltem (4) '则删除所选的项End IfEnd SubPrivate Sub CmdDelAll_Cliek()(5)End Sub

设在窗体中有一个名称为List1的列表框,其中有若干个项目(如图)。要求选中某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是( )。A.Private Sub Command1 Click( ) List1,Clear End SubB.Private Sub Command1 Click( ) List1.Clear List1.ListIndex End SubC.Private Sub Command1 Click( ) List1 Removeltem List1.ListIndex End SubD.Private Sub Command1 Click( ) List1.Removeltem End Sub

在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为;显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。要求;修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。

在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图4所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找”按钮,则找出数组中的,最大值(或最小值),并显示在标签Label2中。 请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图5所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击List1中的某一项时,该项目被添加到List2中,同时在List1中清除该项目。若单击“”按钮,List1 中所有的项目显示在List2中(List2中已有项目不变),List1中的内容不变。 要求:按照题目要求设置控件属性,去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

在考生文件夹下有工程文件execise20.vbp及窗体文件execise20.frm。在窗体Form1上有一个名为List1的列表框,列表框中有若千的列表项,通过属性窗口设置列表框的 MultiSelect属性为1。还有两个命令按钮,名称分别是Cmd1和Cmd2,标题分别是Select All和Save(如下图所示)。要求在程序运行时,单击Select All按钮则将List1中的全部列表项选中,然后单击Save按钮,将List1中的全部列表项写入文本文件out20.txt中,并将out20.txt保存在考生文件夹下。注意:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“'”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。

在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“显示”的命令按钮,一个名称为List1的列表框。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。要求:修改列表框的适当属性,使得运行时可以多选;去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。

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

执行list1.list(list1.listcount)=“80”会()。A.会产生错误信息B.list1列表框最后一个表项被改为“80”C.list1列表框会增加一个“80”表项D.指定list1列表框的表项个数为80个

给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 LoopA.List1.AddltemList2.List(0)B.List1.Addltem List2.TextC.List2.AddltemList1.List(0)D.List2.AddltemList1.Text

有如下两个列表:list1=[(2),(0),(1),(8)]list2=[(2,),(0,),(1,),(8,)]那么,type(list1[0])和type(list2[0])分别是: Aint和tupleBint和intCtuple和tupleDtuple和int

窗体上有list1、list2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Command1的“交换”按钮,则把选中的项目互换,互换后的位置不限。如图b所示。下面的程序可实现这一功能,请填空。Private Sub Command1_Click()If list1.text=””or list2.text””thenMsgbox”请选择交换的物品!”ElseList1.additem list2.textList2.removeitem【11】【12】List1.removeitem list1.listindexEnd IfEnd Sub

某html文档中有如下代码,则在浏览器中打开该文档时显示为( )。<form> List1: <inputtype="text"name="List1"/> <br/> LiSt2: <inputtype="text"name="List2"/> </form>

执行list1.list(list1.listcount)=“80”会()。A、会产生错误信息B、list1列表框最后一个表项被改为“80”C、list1列表框会增加一个“80”表项D、指定list1列表框的表项个数为80个

单选题设窗体上有一个列表框控件List1含有若干列表项,以下能表示当前被选中的列表项内容的是(  )。AList1.ListBList1.ListIndexCList1.TextDList1.Index

单选题窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:程序运行时,选中一个列表项,然后单击Command1按钮,则产生的结果是(  )。A若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置B选中的列表项与它前面的列表项互换位置C若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置D选中的列表项与它后面的列表项互换位置

单选题执行list1.list(list1.listcount)=“80”会()。A会产生错误信息Blist1列表框最后一个表项被改为“80”Clist1列表框会增加一个“80”表项D指定list1列表框的表项个数为80个

单选题列表框List1中没有数据项,现编制如下程序:程序运行后单击命令按钮Command1,则列表框List1中的数据项为(  )。A1 2 3B4 5 6C1 3 5D1 2 6

单选题设窗体上有一个名为List1的列表框,并编写下面的事件过程:程序运行时单击一个列表项,则产生的结果是(  )。A该列表项被移到列表的最前面B该列表项被删除C该列表项被移动到列表的最后面D该列表项被删除后又在原位置插入

单选题窗体上有一个列表框控件List1。以下叙述中错误的是(   )。AList1中有ListCount-1个列表项B当List1.Selected(i)=True,表明第i项被选中C设置某些属性,可以使列表框显示多列数据DList1.Text的值是最后一次被选中的列表项文本

单选题窗体上有名称为command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时,发现不能达到预期目的,应做修改,下列修改中正确的是(  )。A将For循环的终值改为List1.ListCountB将List1.Selected(i)=True改为List1.List(i).Selected=TrueC将List2.AddItem Text改为List2.AddItem List.List(i)D将List2.AddItem Text改为List2.AddItem List.ListIndex