2. 计算机
  3. 以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是Commandl。 Private Sub Commandl Click() If Not Check(Comb01．Text)T

以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是Commandl。 Private Sub Commandl Click() If Not Check(Comb01．Text)T

admin2011-04-29  56
问题 以下程序运行后的窗体如图所示。其中组合框的名称是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、没有任何显示
答案B
解析
转载请注明原文地址:https://kaotiyun.com/show/vnhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)