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