[填空題] 在窗體上畫—個文本框，名稱為Text1，然后編寫如下程序： Private Sub Form_Load() Open"d:empdat.txt"For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(Key Ascii As Integer) IfKeyAscii=13 Then If UCase(Text1.Text)= 【14】 Then Close #1 End Else Write #1, 【15】 Text1.Text="" End If End If End Sub 以上程序的功能是：在D盤temp文件夾下建立—個名為dat.txt的文件，在文本框中輸入字符，每次按回車鍵都把當前文本框中的內(nèi)容寫入文件dat.txt，并清除文本框中的內(nèi)容；如果輸入“END”，則不寫入文件，直接結(jié)束程序。請?zhí)羁铡?/p>正確答案：

[14]"END"

[15]Fext1.Text或Text1[知識點] KeyPress事件[評析] UCase(字符串)：將字符串中的字符轉(zhuǎn)換為大寫。在窗體的Load事件中以寫的方式打開dat.txt，并給文本框賦初值，初值為空，題目要求在文本框中輸入字符，每次按回車鍵都把當前文本框中的內(nèi)容寫入文件dat.txt中，當按下鍵盤上的某個鍵時，將發(fā)生KeyPress事件。KeyPress事件用來識別按鍵的ASCII碼。如果所按鍵的ASCII碼為13，即當按下回車鍵時，UCase(字符串)(即將文本框的文本轉(zhuǎn)換為大寫后的內(nèi)容)等于什么時，將文本中的內(nèi)容不寫入文件，關(guān)閉dat.txt文件，根據(jù)題目描述：如果輸入"END"時，則不寫入文件。所以當轉(zhuǎn)換后的文本框的內(nèi)容為"END"時，關(guān)閉dat.txt文件，因此第14個空應(yīng)填"END"。如果文本框中輸入的字符不是"END"，則把文本框的內(nèi)容寫入到dat.txt文件中，所以寫入的內(nèi)容為文本框Text1的文本內(nèi)容，因此第15個空應(yīng)填Text1.Text。