填空题把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open"d：/test/smtext1．txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【8】
whole＄=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text= 【9】。
Close
Open"d：/test/smtext2．txt"For Output As#1
Print #1 【10】
Close
End Sub

1、

【正确答案】 1、{{*HTML*}}[8] Line lnput #1，Aspect＄
[9] whole＄
[10] Text1.Fext

【答案解析】[解析] lnput#与Line lnput#句都可以从顺序文件中读人数据。区别在于Input#仅仅读人数据项，后接变量表，读人几项数据就用几个变量来接收。Line lnput#语句用来从顺序文件中读取一个完整的行，并把它赋给一个字符串变量。对于本题，由于要读人一个完整的文件，并使用Do循环将每次读入的数据通过aspect＄接受并最终赋给whole＄变量，故[8]处应填：Line lnput #1，aspect＄。
EOF(1)函数测试文件是否被读取完，当Do循环语句执行完毕后，磁盘文件被完全赋给变量whole＄。此时要在文本框中显示，则[9]处应填：whole＄。
磁盘文件读入文本框后，便执行写入另一磁盘文件的操作。写入用Print#语句。该语句后接两个常用参数：文件号与表达式。本题中“1”表示文件号，即在上一步中打开读人的文件。[10]处应填表达式，即：Text1.Text。表示把Text1.Text中的内容写入到 smtext2.txt中。