窗体上有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、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
相关考题：
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Load（）List1.AddItem "北京"List1.AddItem "上海"List1.AddItem "河北"End SubPrivate Sub List1 【9】 （）Labe1.Caption= 【10】End Sub
窗体卜有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中
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。要求：编写程序，以实现试题要求的功能。注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
在窗体上有两个文本框控件和一个命令按钮，名称分别为Text1、Text2和Command1，以下程序实现的功能是当单击Command1按钮时，将把Text2控件中的文本全部选中，并把焦点设置在该文本框中。程序运行时的界面如图20-4所示，以下两空应填( )。Private Sub Command1_Click() TextSelStart=0 Text________=Len(TextText) Text_______ End SubA．SelLength SetFocusB．SelText SetFocusC．SelLength GetFocusD．SelText GetFocus
注意：下面出现的“考生文件夹”均为C：\wexam\25160002。(1) 在名称为Form1的窗体上画一个名称为Label1，标题为“添加项目：”的标签；画一个名称为 Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于3个，内容任意)；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”和“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图23-3所示。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。(2) 在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图23-4所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
设计不能最大化和最小化的表单(如图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=
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（ ）。
（ 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 中
在考生文件夹中有一个工程文件execise57.vbp及其窗体文件execise57.frm。请在名为 Form1的窗体上绘制两个单选按钮(名称分别为Opt1和Opt2，标题分别为“添加项目”和“删除项目”)、一个列表框(名为List1)和一个文本框(名为Text1)。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于3个)后，会添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目后，会将其从列表框中删除。程序的运行情况如下图所示。本程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
阅读以下应用说明以及用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
在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。Private Sub Form. load()Listl.AddItem “北京”List1.AddItem “上海”List1.AddItem “河北”End SubPrivate Sub ______()Labell.Caption=______End Sub
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。要求；修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
在考生文件夹下有一个工程文件sjt3．vbp，窗体上已经有两个文本框，名称分别为Text1、Text2一个命令按钮，名称为C1，标题为“确定”；请画两个单选按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”；再画两个复选框，名称分别为Ch1、Ch2，标题分别为“体育”、“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的操作： ①根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”。 ②根据选中的复选框，在Text2中显示“我的爱好是体育”、“我的爱好是音乐”或“我的爱好是体育音乐”，如图6所示。 注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单 选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有一个名称为List1的列表框，名称为Timerl的计时器，名称为Labell的标签，如图8所示。请通过属性窗口向列表框添加四个项目，分别是“第一项”、“第二项”、“第三项”、“第四项”。程序运行后，将计时器的时间间隔设置为1 秒钟，每一秒钟从列表框中取出一个项目显示在Label1的标签中，首先显示“第一项”，然后，依次显示“第二项”、“第三项”、“第四项”，如此循环。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加List1中的项目，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
请教:2016年计算机二级VB基础练习三简答题10如何解答? 在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Optionl和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为Listl)和一个文本框(名称为Textl)，如图l所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
在考生文件夹中有工程文件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保存在考生文件夹下。注意：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“'”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
窗体上有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、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中
单选题以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。A显示“输入错误”B显示“添加项目失败”C显示“添加项目成功”D没有任何显示
单选题窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：程序运行时，选中一个列表项，然后单击Command1按钮，则产生的结果是（ ）。A若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B选中的列表项与它前面的列表项互换位置C若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D选中的列表项与它后面的列表项互换位置
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A在List2中插入了“外语”“物理”两项B在List1中删除了“外语”“物理”两项C同时产生A项和B项的结果D把List1中最后一个列表项删除并插入到List2中