[填空题] 在窗体上画1个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open "d:empdat.txt" For Output A
15 查阅
[填空题] 在窗体上画1个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open "d:empdat.txt" For Output As #1Text1.Text=" "End SubPrivate Sub Text1 KeyPress(KeyAscii As Integer)If ()=13 ThenIf UCase(Text1.Text)=() ThenCloser #1EndElseWrite #1,()Text1.Text=" "End IfEnd IfEnd Sub以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。
参考答案: