以下程序运行后的窗体如图所示。其中组合框的名称是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”Z”Then Cbeck=False Exit Function End If Next k Check—True End Function 程序运行时，如果在组合框的编辑输入“Java”，则单击命令按钮后产生的结果是