以下程序运行后的窗体如图所示。其中组合框的名称是Combol,已有列表项如图所示;命令按钮的名称是C

以下程序运行后的窗体如图所示。其中组合框的名称是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．没有任何显示