[填空題] 設(shè)窗體上有—個(gè)名稱(chēng)為Combo1的組合框,并有以下程序:Privale Sub Combol_ KeyPress(KeyAscii As Integ
[填空題] 設(shè)窗體上有—個(gè)名稱(chēng)為Combo1的組合框,并有以下程序:Privale Sub Combol_ KeyPress(KeyAscii As Integer) If 【9】 =13 Then 回車(chē)符的ASCII碼是13 For k=0 To Combo1. ListCount-1 If Combo1.Text=Combol. List(k)Then Combo1.Text=" " Exit For End If Next k If Combo1. Text<>" "Then Combo1. AddItem 【10】 End If End IfEnd Sub程序的功能是:在組合框的編輯區(qū)中輸入文本后按回車(chē)鍵,則檢查列表中有無(wú)與此文本相同的項(xiàng)目,若有,則把編輯區(qū)中的文本刪除,否則把編輯區(qū)中文本添加到列表的尾部。請(qǐng)?zhí)羁铡?/p>正確答案:
[9]KeyAscii
參考解析:[10]Combol.Text[知識(shí)點(diǎn)] 鍵盤(pán)與鼠標(biāo)事件過(guò)程[評(píng)析] 當(dāng)按下鍵盤(pán)上的某個(gè)鍵時(shí),將發(fā)生KeyPress事件。參數(shù)KeyAscii是一個(gè)預(yù)定義的變量,執(zhí)行KeyPress事件過(guò)程時(shí),KeyAscii是所按鍵的ASCII碼。當(dāng)按下回車(chē)符時(shí),KeyAscii的值是13。本題中程序首先利用一個(gè)If語(yǔ)句判斷所按下的是否為回車(chē)符,如果是,用一個(gè)For循環(huán)語(yǔ)句檢查組合框列表中有無(wú)與組合框編輯區(qū)中文本相同的項(xiàng)目,如果有則把組合框編輯區(qū)中的文本刪除。接著再用一個(gè)If語(yǔ)句判斷組合框編輯區(qū)中的文本是否為空,如果不為空,將組合框編輯區(qū)中文本添加到組合框列表的尾部。第9個(gè)空用來(lái)判斷所按下的鍵是否為回車(chē)符,即FIKeyAscii的值是否為13,因此第9個(gè)空中應(yīng)填KeyAscii。第10個(gè)空用來(lái)將組合框編輯區(qū)中的文本添加到組合框列表的尾部,因此應(yīng)填Combo1.Text。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。