[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为

21 查阅

[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程： Prlvate Sub Form_Click() Open"D:est1.txt"For Input As # 1 Text1.FontSize＝14 Text1.FontName=“幼圆” Do While Not EOF(1) 【13】 whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text＝【14】 Close Open"D:est2.txt"For Output As # 1 Print # 1, 【15】 Close End Sub

参考答案:

[AC] Line Input #A,aspect$

[14] Whole $ [15] Text1. Text 文件的读操作使用Input#语句，其格式为：Input #文件号，题中根据EOF(1)可以推断文件号为1，由语句whole $＝whole $+aspect $+Chr $(13)+Chr$(10)可知变量为aspect$，并且是以行读入内存的，故 [13]处的文件读操作语句应为Line Input # 1,aspect$。读入内容在文本框中显示出来，就给文本框的Text属性赋读入内容Whole $即可。 Print #1, Text1. Text表示把整个文本框Text1的内容一次性的写入文件。

计算机考试