以下程序运行后的窗体如图所示，其中组合框的名称是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.没有任何显示
以下程序运行后的窗体如图所示，其中组合框的名称是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.没有任何显示
相关考题：
工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是（ ）。A．Private Sub Command1_Click（ ）Form2.ShowEnd SubB．Private Sub Command1_Click（ ）Form2.VisibleEnd SubC．Private Sub Command1_Click（ ）Load Form2End SubD．Private Sub Command1_Click（ ）Form2.LoadEnd Sub
在窗体上画1一个名称为Command1的命令按钮，并编写以下程序Private Sub Command1_Click（）Print fun（“ABCDEFG”）End SubFunction fun（st As String） As Stringstlen=Len（st）temp=””For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是（ ）。A．ABCDEFGB．AGBFCEC．GFEDCBAD．AGBFCED
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd Sub则窗体中显示的内容是______。
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 \" 城市名称 \" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。Private Sub Combol_KeyPress（KeyAscii As Integer）If KeyAscii=13 ThenFor i=0 To Combo1 ListCount-1If Combo1 Text= 【 12 】 ThenLabel2 Caption=" 输入项已在组合框中。 "Exit SubEnd IfNext iLabel2 Caption=" 已成功添加新输入项。 "Combo1 ______ Combo1 TextEnd IfEnd Sub
在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(1)If i＞4 Then i=i*2MsgBox iEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
工程中有两个窗体，名称分别为Form1、Form2，Fonn1为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是 ______。A．Private Sub Command1_click() Foma2.Show End SubB．Private Sub Command1_Click() Form2.Visible End SubC．Private Sub Command1_Click() Load Form2 End SubD．Private Sub Command1_click() Form.Load EndSub
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
（13）在窗体上画两个组合框，其名称分别为Combo1、Combo2,然后画两个标签，名称分别为Label1、Label2.要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下的标签中显示出来，请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label) Caption=_____.TextEnd Sub
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2sum=sum+iNext iMsgBox sumEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
如下图所示的两个窗体：要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End SubB．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End SubC．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End SubD．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。A．10B．30C．40D．50
在窗体上画一个组合框Combo1和一个命令按钮Command1，然后编写如下两个事件工程：Private Sub form. Activate( a = Combo1. List (1) Print aEnd SubPrivate Sub form_ Load () Combo1. AddItem "11" Combo1. AddItem "22" Combo1. Addltem "33"End Sub窗体上打印出来的结果是______。A．11B．22C．33D．0
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A．123.45B．12345.00C．12345D．00123.45
以下程序运行后的窗体如图所示。其中组合框的名称是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．没有任何显示
以下程序运行后的窗体如图所示。其中组合框的名称是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)没有任何显示
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A． 123.45B．12345.00C．12345D．00123.45
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)For i=_______ To UBound(city)Combol．AddItem_______NextEnd Sub
在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click（）Call ShowItem（Combo1, Label1）End SubPrivate Sub Combo2_Click（）Call ShowItem（Combo2, Label2）End SubPublic Sub ShowItem（tmpCombo As ComboBox, tmpLabel As Label）______.Caption =______.TextEnd Sub
单选题以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。A显示“输入错误”B显示“添加项目失败”C显示“添加项目成功”D没有任何显示
单选题在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为（ ）。AText1.Text=Combo1.List(2)BText1.Text=Combo1.TextCText1.Text=Combo1.List(3)DText1.Text=Combo1.ListIndex