网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是Commandl。
Private Sub Commandl Click()
If Not Check(Comb01．Text)Then
MsgBox(”输入错误”)
Exit Sub
End If
For k=0 TO Comb01．ListCount一1
If Comb01．Text=Comb01．List(k)Then
MsgBox(”添加项目失败”)
Exit Sub
End If
Next k
． Comb01．AddItem Comb01．Text
MsgBox(”添加项目成功”)
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 Ton
c$=UCase(Mid(ch，k，1))
If c<“A”Or c>”Z”Then
Cbeck=False
Exit Function
End If
Next k
Check—True
End Function
程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是
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．没有任何显示 ” 相关考题
考题
若窗体Frml中有一个命令按钮Cmdl，则窗体和命令按钮的Click事件过程名A．Form_Click() Commandl_Click()B．Frml_Click() Commamdl_Click()C．Form_Click() Cmdl_Click()D．Frml_Click() Cmdl_Click()
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Pfivme Sub f(ByVal x As Integer)x＝x+4End SubPfivate Sub Commandl_Click()i＝3Call f(i)Ifi4 Then i＝i*2MsgBOx IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X， Y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A．15 16B．15 6C．15 15D．5 6
考题
3在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： PrivateSubCommand1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为( )。A．15 16B．156C．15 15D．56
考题
以下程序运行后的窗体如图所示。其中组合框的名称是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)没有任何显示
考题
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)For i=_______ To UBound(city)Combol．AddItem_______NextEnd Sub
考题
以下程序运行后的窗体如图所示，其中组合框的名称是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.没有任何显示
考题
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
热门标签
最新试卷