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