（ 6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时 ， 单击其中一项 ， 即可把该项与最上面的一项交换 。例如 ： 单击 图 1 中的 “ 重庆 ” ， 则与 “ 北京 ” 交换 ， 得到 图2 的结果。下面是可实现此功能的程序，请填空。Private Sub Combo1_Click()Dim temptemp = Combo1.Text[6] = Combo1.List(0)Combo1.List(0) = tempEnd Sub
（ 6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时 ， 单击其中一项 ， 即可把该项与最上面的一项交换 。例如 ： 单击 图 1 中的 “ 重庆 ” ， 则与 “ 北京 ” 交换 ， 得到 图2 的结果。下面是可实现此功能的程序，请填空。
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
相关考题：
窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序Private Sub Command1_Click（）Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr（List.List（k）,s）0 thenstr=strList.List（k）” ”End IfNext kIf str=””ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A．京B．北京 南京C．南京D．没有匹配的项目
窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=strList1.List(k)" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。A．京B．北京 南京C．南京 北京D．没有匹配的项目
（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)Prvate Sub List1_Click()Print List1.TextEnd SubB)Private Sub Form1_Click()Print List1.TextEnd SubC)Private Sub List1_Click()Print Form1.TextEnd SubD)Private Sub Form1_Click()List1.Print List1.TextEnd Sub
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（）x = InputBox（"请输入一个整数"）Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A．123B．456C．479D．123456
若要在图4-16窗口内新增一个[帮助]按钮，单击该按钮就会弹出一个帮助对话框(另一名为frm002的窗体)，用户必须在其中做出响应，程序才能继续运行。请将以下该命令按钮的单击事件过程中的程序代码填写完整。Private Sub CmdHelp_C1ick()(10)End Sub
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：Private Sub Command1_Click()Dim In As IntegerIn=______List.Remove IndEnd Sub则在程序的空白行的语句是( )。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount
阅读程序：Private Sub Form_Click()msg 1$＝"继续吗?"msg 2$="操作对话框"r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)End Sub程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的【 】按钮。
以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【 】。PRIVATE FORM_CLICK( )STATIC A AS INTEGERDIM B AS INTEGERB=A+B+1A=A+BMSGBOX A"," BEND SUB
窗体上有一个组合框，编写下列程序：Private Sub Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form. Load() Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub程序执行时，单击Command1，则在组合框中将不再出现______。A．上海B．北京C．天津D．重庆
在名称为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。
在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
设在窗体Forml上有一个列表框Listl，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是。 A．Private Sub Listl_Click B．Private Sub Forml_Click Print Listl．Text Print Listl．Text End Sub End Sub C．Private Sub Listl_Click D．Private Sub Forml_Click Print Forml．Text Listl．Print Listl．Text End Sub End Sub
考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该组合梃只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图5(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的 有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。 、 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape控件。请在属性窗口中将Shape1控件设置为圆形，并将其颜色设置为红色(颜色值为H000000FF)，如图6所示。 要求：当单击窗体时，Shape1移动到矩形(即 Shape2)左上角，再次单击窗体，则Shapel移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的乓他部分和控件属性。最后把修改后的文件按原文件名存盘。
有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件和文件名。
（ 30 ） 窗体上有 1 个名称为 List 的列表框 ， 其中已经输入了若干个项目 （ 如图所示 ） ： 还有 2 个文本框 ，名称分别为 Text1 、 Text2, 1 个名称为 Command1 的命令按钮，并有以下程序Private Sub Command1_Click （）Dim str As String, s As String, k As Integers=Text1Str= ””For k=List1.ListCount-1 to 0 Step-1If InStr （ List.List （ k ） ,s ） 0 thenstr=strList.List （ k ） ” ”End IfNext kIf str= ”” ThenText2= ” 没有匹配的项目 ”ElseText2=strEnd IfEnd Sub程序运行时，在 Text1 中输入 “ 京 ” ，单击命令按钮，则在 Text2 中显示的内容是（ ）A ） 京B ） 北京 南京C ） 南京D ） 没有匹配的项目
在考生文件夹中有一个工程文件execise41.vbp和窗体文件execise41.frm。在名为 Form1的窗体上有一个名称为Text1的文本框，一个名称为Lid1的列表框，一个命令按钮 (名为Cmd1，标题为Insert)，如下图所示。程序的功能是：在运行时，如果在文本框中输入一行内容并单击Insert按钮，则把文本框中的内容作为列表项添加到列表框中；如果单击列表框中的某一项，则立即从列表框中删除该项。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
在考生文件夹中有一个工程文件execise38.vbp，相应的窗体文件名为execise38.frm。在名为Form1的窗体中有一个组合框和一个命令按钮，如下图所示。程序的功能是：在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示：“此项已存在”，然后清除输入的内容。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
在考生文件夹中有一个工程文件execise98.vbp及窗体文件execise98.frm。在名为Form1的窗体上有1个组合框Com1，其中已经预设了内容；还有1个文本框Text1，和3个命令按钮(名称分别为Cmd1、Cmd2和Cmd3，标题分别为“修改”、 “确定”和“添加”)。程序运行时，“确定”按钮不可用，如下图所示。程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用；若单击．“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。注意：所提供的窗体文件已经给出了所有控件和程序，但程序不完整。请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，但不得修改程序的其他部分，也不得修改控件的属性。最后，按原文件名并在原文件夹中保存修改后的文件。
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)For i=_______ To UBound(city)Combol．AddItem_______NextEnd Sub
在考生文件夹中有一个工程文件execise42.vbp和窗体文件execise42.frm。请在名为 Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“二级考试”、“计算机”和空白：然后绘制2个单选按钮，其名称分别为opt1和 Opt2，标题分别为Change和Join，编写适当的事件程序。要求在程序运行时，先单击Change单选按钮，使Text1文本框中内容与Text2文本框中内容进行交换，并使Change单选按钮消失；然后单击Join单选按钮，则把交换后的Text1和Text2的内容以Text1在前、Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。如下图所示。注意：不得修改已经给出的程序。在结束程序运行之前，必须先单击Change单选按钮，后单击Join单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。最后原名保存修改后的文件。
窗体上有一个命令按钮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．程序出错
窗体上有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.没有匹配的项目
窗体上有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
单选题以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。A显示“输入错误”B显示“添加项目失败”C显示“添加项目成功”D没有任何显示
单选题在窗体上画一个文本框，然后编写如下事件过程：程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。A123B456C579D123456