在窗体上画一个文本框,名称为Textl,然后编写如下程序:
Private Sub Form_Load()
Open”d:\temp\dat.txt”For Output As1
Textl.Text=“”
End Sub
Private Sub Textl KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If UCase(Textl.Text)=【 】Then
Close1
End
Else
Write1,【 】
Textl.Text=…
End If
End If
End SUb
以上程序的功能是:在D盘temp文件夹下建立一个名为dat.txt的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则不写入文件,直接结束程序。请填空。