单选题
以下程序运行后的窗体如下图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
Private Sub Coraraand1_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
Private Sub Coraraand1_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
【正确答案】
B
【答案解析】[解析] 本题中Check子函数的作用是测试输入的内容中是否包含非字母字符，若包含则返回False，若不包含则返回True。按钮单击事件中If语句使得Check子函数判断输入数据是否正确，若正确则执行下面语句，若不正确则弹出对话框显示“输入错误”，并且退出语句。For循环测试当前的输入内容是否已经存在，若存在则弹出对话框显示“添加项目失败”，且退出程序；若不存在则继续执行下面的添加语句，将输入内容添加到组合框中。本题中输入“Java”已经存在组合框中，所以弹出对话框显示“添加项目失败”。