网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
窗体上有名称为command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1（Simple），并有如下事件过程：上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（ ）。
A
将For循环的终值改为List1.ListCount
B
将List1.Selected（i）＝True改为List1.List（i）.Selected＝True
C
将List2.AddItem Text改为List2.AddItem List.List（i）
D
将List2.AddItem Text改为List2.AddItem List.ListIndex
参考答案
参考解析
解析：
题目中的程序不能将List1中的选中项添加到List2中，List2.AddItem Text一行有误，应该改为List2.Addhem List1.List（i）才能使List1中每个选中的行添加至List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。
题目中的程序不能将List1中的选中项添加到List2中，List2.AddItem Text一行有误，应该改为List2.Addhem List1.List（i）才能使List1中每个选中的行添加至List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。
更多 “单选题窗体上有名称为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” 相关考题
考题
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）For i=1 To 100If i Mod 7 =0 Then________End IfNextEnd SubPrivate Sub Command1_Click（）Sum = 0For i = 0 To ________Sum = Sum + ________NextText1.Text = SumEnd Sub
考题
3在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是( )。A．B．C．D．
考题
（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop
考题
在窗体上有一个列表框，名称为List1，该列表框中有三个选项，分别为“123”、“456”和“789”，当前没有任何选项被选中，则执行List1．RemoveItem List1．ListIndex语句后，移去的是( )。A．123B．456C．789D．出错
考题
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
考题
在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd SubA．List1.Select(i)B．List1.Sort(i)C．List1.List(i)D．Ltst1.Select(List1.Listindex)
考题
设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。
考题
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。Pfivate Sub Form_Load()Fori=1 To 100If iMod7=
考题
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
考题
在窗体上有一个名称为Command1的命令按钮，并有如下程序：程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。A. 5 16B. 5 6C. 15 15D. 15 6
考题
（ 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
考题
在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。要求：去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。
考题
设在窗体中有一个名称为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
考题
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Removc Ind End Sub 则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
考题
窗体上有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中
考题
窗体上有一个命令按钮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．0B．10C．01234D．程序出错
考题
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private Sub Command1_Click（ ）For k=List1．ListCout-1 To 0 Step-1If List1．Selected(k)ThenList2．Addltem List1．List(k)List1．Removeltem kEnd IfNext kEnd Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。A.在List2中插入了“外语”、“物理”两项B.在List1中删除了“外语”、“物理”两项C.同时产生A和B的结果D.把List1巾最后1个列表项删除并插入到List2中
考题
窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。 Private Sub Command1_Click（ ） Dim str As String，S As String．k As Integer s=Text1 str ="" For k=Listl．ListCount-1 To 0 Step-1 If InStr(List1．List(k)，s)0 Then str=str ＆ List1．List(k)＆"" End If Next k If str=""Then Text2="没有匹配的项目" Else Text2=str End If End Sub程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是（ ）。A.京B.北京南京C.南京北京D.没有匹配的项目
考题
设列表框的名称为Lst1,则下列与List1Iext中的值相同的属性值()A)Listi ListcountB)List1 List(Listl Listindex)C)List1 List(listcount-1)D) List1 listindex
考题
窗体上有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
考题
单选题列表框List1中没有数据项，现编制如下程序：程序运行后单击命令按钮Command1，则列表框List1中的数据项为（ ）。A
1 2 3B
4 5 6C
1 3 5D
1 2 6
考题
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A
在List2中插入了“外语”“物理”两项B
在List1中删除了“外语”“物理”两项C
同时产生A项和B项的结果D
把List1中最后一个列表项删除并插入到List2中
考题
单选题窗体上有一个名称为Command1的命令按钮，事件过程如下：运行程序，并单击命令按钮，窗体上显示的内容为（ ）。A
-4B
-3C
3D
3.6
热门标签
最新试卷