[填空題] 設(shè)窗體上有一個名稱為Combo1的組合框,并有以下程序: Private Sub Combo1_KeyPress(KeyAscii As Inte
[填空題] 設(shè)窗體上有一個名稱為Combo1的組合框,并有以下程序:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If (9) =13 Then ’回車符的ASCII碼是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k) Then
combo1.Text=""
Exit For
End If
Next k
If Combo1.Text<> "" Then
Combo1.AddItem (10)
End If
End If
End Sub
程序的功能是:在組合框的編輯區(qū)中輸入文本后按回車鍵,則檢查列表中有無與此文本相同的項目,若有,則把編輯區(qū)中的文本刪除,否則把編輯區(qū)中文本添加到列表的尾部,請?zhí)羁铡?/p>正確答案:
(9)KeyAscii (10)Combo1.Text
參考解析:當在組合框中輸入字符時將產(chǎn)生KeyPress事件,只有當輸入回車鍵時才檢查選項,所以第[9]空應(yīng)填KeyAscii,表示當按鍵的ASCII碼為13(回車鍵)時進行檢查;檢查時,通過For循環(huán)用組合框的每一個選項Combo1.List(k)與輸入的值Combo1.Text比較,如果相等(選項已存在)則刪除編輯區(qū)的內(nèi)容(Combo1.Text=""),等到循環(huán)結(jié)束,如果Combo1.Text<>"",則說明選項中不存在輸入的內(nèi)容,應(yīng)添加該內(nèi)容到列表項尾部。添加選項的方法AddItem有兩個參數(shù):第一個表示添加的內(nèi)容,第二個表示添加的位置,默認將把選項添加到尾部,所以這里只需填第一個參數(shù):Combo1.Text。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。