[填空题] 在窗体上画—个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open"d:empdat.txt"For Output

[填空题] 在窗体上画—个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open"d:empdat.txt"For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(Key Ascii As Integer) IfKeyAscii=13 Then If UCase(Text1.Text)= 【14】 Then Close #1 End Else Write #1, 【15】 Text1.Text="" End If End If End Sub 以上程序的功能是：在D盘temp文件夹下建立—个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。

参考答案：

[14]"END"

问题解析:

[15]Fext1.Text或Text1[知识点] KeyPress事件[评析] UCase(字符串)：将字符串中的字符转换为大写。在窗体的Load事件中以写的方式打开dat.txt，并给文本框赋初值，初值为空，题目要求在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt中，当按下键盘上的某个键时，将发生KeyPress事件。KeyPress事件用来识别按键的ASCII码。如果所按键的ASCII码为13，即当按下回车键时，UCase(字符串)(即将文本框的文本转换为大写后的内容)等于什么时，将文本中的内容不写入文件，关闭dat.txt文件，根据题目描述：如果输入"END"时，则不写入文件。所以当转换后的文本框的内容为"END"时，关闭dat.txt文件，因此第14个空应填"END"。如果文本框中输入的字符不是"END"，则把文本框的内容写入到dat.txt文件中，所以写入的内容为文本框Text1的文本内容，因此第15个空应填Text1.Text。