以下程序运行后的窗体如图所示。其中组合框的名称是Combo卜已有列表项如图所示；命令按钮的名称是Command 1。

Private Sub Commandl_Click()

If Not Check(Combo 1.Text) Then

MsgBox ("输入错误")

Exit Sub

End If

For k=0 To Combol.ListCount-1

If Combo l .Text=Combol.List(k) Then

MsgBox (" 添加项目失败")

Exit Sub

End If

Next k

Combo 1 .AddItem Combo 1.Text

MsgBox（"添加项目成功"）

End Sub

Private Function Check(ch As String) As Boolean

n=Len(ch)

for k＝1To 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)没有任何显示