[填空題] 在窗體上畫一個文本框，名稱為Text1，然后編寫如下程序：

Private Sub Form_Load()

Open"d:empdat,txt"For Output As#1

Text1.Text=" "

End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

If UCase(Text1.Text)=______Then

Close#1

End

Else

Write#1,______

Text1.Text=" "

End If

End If

End Sub

以上程序的功能是在D盤temp文件夾下建立一個名為dat.txt的文件，在文本框中輸入字符，每次按Enter鍵都把當前文本框中的內(nèi)容寫入文件dat.txt，并清除文本框中的內(nèi)容：如果輸入“END”，則不寫入文件，直接結(jié)束程序。請?zhí)羁铡?/p>正確答案：

"END"Text1.Text(或Text1)

KeyPress(KeyAscii As Integer)事件是在對象具有焦點時，按下鍵盤上的鍵時觸發(fā)的事件，KeyAscii參數(shù)是所按鍵的Ascii的代碼，Enter鍵的Ascii代碼值為13。 本題源程序通過文本框的KeyPress事件過程，每當在文本框中按下一個鍵時，先判斷其是否為Enter鍵，若是則繼續(xù)判斷文本框中當前內(nèi)容的大寫是否為“END”，若是則結(jié)束程序(故第一個空處應填入“END”)，否則將當前文本框中的內(nèi)容寫入數(shù)據(jù)文件，故第二個空處應填入Text1.Text。