问题
问答题
以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。
Private Sub Command 1_Click()
If Not Check(Combo1. Text) Then
MsgBox("输入错误")
Exit Sub
End If
For k=0 To Combo1. ListCount-1
If Combo1. Text=Combo1.List(k)Then
MsgBox("添加项目失败")
Exit Sub
End If
Next k
Combo1. AddItem Combo1. Text
MsgBox("添加项目成功")
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 To n
c$=UCase(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 没有任何显示
答案
参考答案：B
解析： 本题程序的功能是：向组合框的文本输入区输入一个单词，若其中含有非字母字符则利用消息框输出“输入错误”，若其已经在组合框的列表项中存在则输出“添加项目失败”，否则将其加入到组合框的列表项中并显示“添加项目成功”。