以下程序運行后的窗體如圖所示。其中組合框的名稱是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．沒有任何顯示

正確答案：

B