以下程序運(yùn)行后的窗體如圖所示。其中組合框的名稱是Combol，已有列表項(xiàng)如圖所示；命令按鈕的名稱是Commandl。

Private Sub Commandl Click()

If Not Check(Comb01．Text)Then

MsgBox(”輸入錯(cuò)誤”)

Exit Sub

End If

For k=0 TO Comb01．ListCount一1

If Comb01．Text=Comb01．List(k)Then

MsgBox(”添加項(xiàng)目失敗”)

Exit Sub

End If

Next k

． Comb01．AddItem Comb01．Text

MsgBox(”添加項(xiàng)目成功”)

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”O(jiān)r c>”Z”Then

Cbeck=False

Exit Function

End If

Next k

Check—True

End Function

程序運(yùn)行時(shí)，如果在組合框的編輯區(qū)中輸入“Java”，則單擊命令按鈕后產(chǎn)生的結(jié)果是

A．顯示“輸入錯(cuò)誤”

B．顯示“添加項(xiàng)目失敗”

C．顯示“添加項(xiàng)目成功”

D．沒(méi)有任何顯示

正確答案：

B