单选题以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。A显示“输入错误”B显示“添加项目失败”C显示“添加项目成功”D没有任何显示
单选题
以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
A
显示“输入错误”
B
显示“添加项目失败”
C
显示“添加项目成功”
D
没有任何显示
参考解析
解析：
Check子函数的作用是测试输入的内容中是否包含非字母字符，若包含则返回False，若不包含则返回True。按钮单击事件中If语句使得Check子函数判断输入数据是否正确，若正确则执行下面语句，若不正确则弹出对话框显示“输入错误”并退出语句。For循环测试当前的输入内容是否已经存在，若存在则弹出对话框显示“添加项目失败”，且退出程序；若不存在则继续执行下面的添加语句，将输入内容添加到组合框中。本题中输入“Java”已经存在组合框中，所以弹出对话框显示“添加项目失败”。
Check子函数的作用是测试输入的内容中是否包含非字母字符，若包含则返回False，若不包含则返回True。按钮单击事件中If语句使得Check子函数判断输入数据是否正确，若正确则执行下面语句，若不正确则弹出对话框显示“输入错误”并退出语句。For循环测试当前的输入内容是否已经存在，若存在则弹出对话框显示“添加项目失败”，且退出程序；若不存在则继续执行下面的添加语句，将输入内容添加到组合框中。本题中输入“Java”已经存在组合框中，所以弹出对话框显示“添加项目失败”。
相关考题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd Sub则窗体中显示的内容是______。
在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
在考生文件夹下有“xx”数据库。在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。A.文本框中显示的是"程序设计"，且焦点在文本框中B.文本框中显示的是"等级考试"，且焦点在文本框中C.文本框中显示的是"程序设计"，且焦点在命令按钮上D.文本框中显示的是"等级考试"，且焦点在命令按钮上
以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是Commandl。Private Sub Commandl Click()If Not Check(Comb01．Text)ThenMsgBox(”输入错误”)Exit SubEnd IfFor k=0 TO Comb01．ListCount一1If Comb01．Text=Comb01．List(k)ThenMsgBox(”添加项目失败”)Exit SubEnd IfNext k． Comb01．AddItem Comb01．TextMsgBox(”添加项目成功”)End SubPrivate Function Check(ch As String)As Booleann=Len(ch)For k=1 Tonc$=UCase(Mid(ch，k，1))If c“A”Or c”Z”ThenCbeck=FalseExit FunctionEnd IfNext kCheck—TrueEnd Function程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是A．显示“输入错误”B．显示“添加项目失败”C．显示“添加项目成功”D．没有任何显示
在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。
在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combol和Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.AddItem "AAAAA" Combol.AddItem "BBBBB" Combol.AddItem "CCCCC" Combol.AddItem "DDDDD" Combol.AddItem "EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目，"CCCCC"。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为______。A．Text1．Text=Combol．List(2)B．Text1．Text=Combol．TextC．Text1．Text=Combol．List(3)D．Text1．Text=Combol．ListIndex
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。A. 输出0B. 输出25C. 输出45D. 无任何输出
有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
以下程序运行后的窗体如图所示。其中组合框的名称是Combo卜已有列表项如图所示；命令按钮的名称是Command 1。Private Sub Commandl_Click()If Not Check(Combo 1.Text) ThenMsgBox ("输入错误")Exit SubEnd IfFor k=0 To Combol.ListCount-1If Combo l .Text=Combol.List(k) ThenMsgBox (" 添加项目失败")Exit SubEnd IfNext kCombo 1 .AddItem Combo 1.TextMsgBox（"添加项目成功"）End SubPrivate Function Check(ch As String) As Booleann=Len(ch)for k＝1To nc＄＝UCase(Mid(ch, k, 1））If c＜"A"Or c＞"Z" ThenCheck＝FalseExit FunctionEnd IfNext kCheck=TrueEnd Function程序运行时：如果在组合框的编辑区中输入"Java",单击命令按钮后产生的结果是A）显示“输入错误”B)显示“添加项目失败”C) 显示“添加项目成功”D)没有任何显示
窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1 Click（ ） XzInputBox("输入X："，，0) y=InputBox("输入y："，，0) Label1．Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（ ）。A.程序运行有错误，数据类型不匹配B.程序运行有错误，InputBox函数的格式不对C.在Label1中显示5D.在Label1中显示23
在考生文件夹中有一个工程文件execise88.vbp及窗体文件exeeise88.frm。在名称为 Form1的贸体中有一个组合框和一个命令按钮，如下图所示。在运行程序时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示： “已有此项”，然后清除输入的内容。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
在考生文件夹中有一个工程文件execise38.vbp，相应的窗体文件名为execise38.frm。在名为Form1的窗体中有一个组合框和一个命令按钮，如下图所示。程序的功能是：在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示：“此项已存在”，然后清除输入的内容。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
在名为Form1的窗体上绘制一个名称为Lab1、标题为“AddItem:”的标签；绘制一个名称为Text1的文本框，没有初始内容；绘制一个名称为Com1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)：再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Add和Display。在运行时，向Text1中输入字符，单击Add按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中：单击Display按钮，则在窗体上显示组合框中列表项的个数，如下图所示。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能使用循环；文件必须存放在考生文件夹中，工程文件名为execise13.vbp，窗体文件名为execise13.frm。
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)For i=_______ To UBound(city)Combol．AddItem_______NextEnd Sub
在考生文件起下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为 Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的故值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框．输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。 程序运行时的窗体界面如图5-3所示。注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。Private，Sub Command1_Click（ ） If Not Check(Combo1．Text)Then MsgBox("输入错误") Exit Sub End If For k=0 To Comb01．ListCount-1 If Comb01．Text=Combo1．List(k)Then MsgBOX("添加项目失败") Exit Sub End If Next k Cornbol．AddItem Combo1．Text MsgBOX("添加项目成功") End Sub Private Function Check(ch As String)As Boolean n=Len(ch) For k=1 To n c$=Ucace(Mid(ch，k，1)) If c"A"Or c"Z"Then Check=False Exit Function End If Next k Check=True End Function 程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。A.显示“输入错误”B.显示“添加项目失败”C.显示“添加项目成功”D.没有任何显示
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是（ ）。A579B123C456123D456
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框：运行以上程序，单击命令按钮后（ ）。A文本框中显示的是“程序设计”，且焦点在文本框中B文本框中显示的是“等级考试”，且焦点在文本框中C文本框中显示的是“程序设计”，且焦点在命令按钮上D文本框中显示的是“等级考试”，且焦点在命令按钮上