在窗体上画1个文本框，名称为Text1，然后编写如下程序：

Private Sub Form_Load（）

Open"d:/temp/dat.txt"For Output As#1

Text1.Text=""

E．nd Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

lf(13)=13 Then

If UCase（Text1.Text）=______Then

C．lose 1

E．nd

E．lse

Write#1,______

Text1.Text=""

E．nd If

E．nd If

E．nd Sub

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。