以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
Private Sub Command1_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.Addltem 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) 显示"添加项目成功\
参考答案：C
解析： 本题中的Check子函数的功能为测试输入内容是否包含非字母字符，若包含则返回False，否则返回True。按钮单击事件中，If语句使用Check子函数判断输入数据是否正确，若正确，执行下面的语句，若不正确，弹出窗口显示"输入错误"，并退出程序，什么也不做。For循环测试当前输入内容是否已经存在，若已经存在，弹出窗口显示"添加项目失败"，然后退出程序，什么也不做；若不存在，继续执行下面的添加语句，将输入内容添加到组合框中。本题输入的Java已经存在于组合框中，因此会弹出窗口，显示"添加项目失败"。因此，答案为C) 。