[填空題] 在窗體上畫一個文本框，名稱為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 (8) =13 Then

If UCase(Text1.Text)= (9) Then

Close #1

End

Else

Write #1, (10)

Text1.Text=""

End If

End If

End Sub

以上程序的功能是：在D盤的temp目錄下建立一個名為dat.txt的文件，在文本框中輸入字符，每次按回車鍵(回車符的ASCII碼是13)都把當前文本框中的內容寫入文件dat.txt，并清除文本框中的內容；如果輸入END，則結束程序。請?zhí)羁铡?/p>正確答案：

KeyAscii (9)"END" (10)Text1.text

題中第一個Sub過程在D盤的temp目錄下建立一個名為dat.txt的文件。在文本框中輸入字符，首先判斷是否按下同車鍵(回車符的ASCII碼是13)，這需要將所按鍵的參數(shù)KeyAscii與13做相等比較，所以在第一個空中填寫KeyAscii；在按回車鍵之后，再判斷文本框中的輸入的內容是否為字符串"END"，所以在第二個空中用UCase(Text1.Text)與"END"做相等比較；如果輸入的字符串不是"END"，則將當前文本框中的內容寫入文件dat.txt，在第三個空中填寫Text1.text。