在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序：
Private Sub Form_Load()
Open "d:\temp\dat.txt" For Output As #1
Text1.Text = "" End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 Then
If UCase(Text1.Text) = _________Then
Close #1
End
Else
Write #1, _________
Text1.Text = ""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每
次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文 本框中的内容；如果输入"END"，则结束程序。请填空。