以下程序運行后的窗體如圖所示。其中組合框的名稱是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”O(jiān)r c>”Z”Then
Cbeck=False
Exit Function
End If
Next k
Check—True
End Function
程序運行時,如果在組合框的編輯區(qū)中輸入“Java”,則單擊命令按鈕后產(chǎn)生的結(jié)果是
A.顯示“輸入錯誤”
B.顯示“添加項目失敗”
C.顯示“添加項目成功”
D.沒有任何顯示
正確答案:B
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。