题目内容:
在窗体上画1个文本框,名称为Text1,然后编写如下程序: PrivateSubForm_Load()
Open"d:\temp\dat.txt"ForOutputAs#1
Text1.Text=""
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
lf【13】=13Then
IfUCase(Text1.Text)=______Then
Close1
End
Else
Write#1,______
Text1.Text=""
EndIf
EndIf
EndSub
以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。
参考答案:
答案解析: