[填空題] 在窗體上畫1個(gè)文本框,名稱為Text1,然后編寫如下程序:Private Sub Form_Load()Open "d:empdat.txt" Fo
[填空題] 在窗體上畫1個(gè)文本框,名稱為Text1,然后編寫如下程序:Private Sub Form_Load()Open "d:empdat.txt" For Output As #1Text1.Text=" "End SubPrivate Sub Text1 KeyPress(KeyAscii As Integer)If ()=13 ThenIf UCase(Text1.Text)=() ThenCloser #1EndElseWrite #1,()Text1.Text=" "End IfEnd IfEnd Sub以上程序的功能是,在D盤temp目錄下建立1個(gè)名為dat.txt的文件,在文本框中輸入字符,每次按回車鍵(回車符的ASCII碼是13)都把當(dāng)前文本框中的內(nèi)容寫入文件dat.txt,并清除文本框中的內(nèi)容;如果輸入“END”,則結(jié)束程序。請(qǐng)?zhí)羁铡?/p>正確答案:
KeyAscii; "END" ;Text1.Text
參考解析:[評(píng)析] 第13空的目的是用來判斷當(dāng)前輸入的字符是否是回車(其Ascii碼值為13),只要判斷所輸入的字符的Ascii碼值是否是13,在KeyPress事件中,KeyAscii用來表示當(dāng)前輸入字符的Ascii碼值,故第13空應(yīng)填 KeyAscii。第14空的目的是判斷當(dāng)前文本框中所輸入的字符串是否為“End”(可忽略大小寫),只要將文本框中的字符全部轉(zhuǎn)換為大寫字母,然后與“END”相比較,故第14空應(yīng)填“END”;第15空所在語句是將文本框中的內(nèi)容寫入到文件#1中,故該空應(yīng)填Text1.Text。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。