[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form

[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form

[填空题] 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form_Click()

Open "d:Temptext1.txt" For Input As #1

Do While Not______。

Line Input #1,aspectS

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

______。

Open "d:Temptext2.txt" For Output As #1

Print #1,______。

Close #1

End Sub

运行程序，单击窗体，将把磁盘文件Temptext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件Temptext2.txt。请填空。

正确答案：

EOF(1)；Close #1；Text1.Text (或Text1)

参考解析：

VB程序中关于文件的 *** 作，主要是先打开一个文件，然后对这个文件进行读或写的 *** 作， *** 作完成后，关闭这个文件。打开文件的基本格式为：Open FileName For Mode As #FileNumber。其中，FileNumber参数表示打开文件的句柄，即文件号。当从文件中读取全部数据时，常用Do While当型循环，并以Not EOF(文件号)作为循环条件，用于判断是否已到文件结尾，故第一空应填入EOF(1)。由于在写文件时又将需要写入的文件打开为1号文件，所以再打开该文件前应该先关闭1号文件，第二空应填入Close #1；若要对以Output形式打开的某文件使用Print方法进行输出，标准格式为：Print文件号，字符串，故第三空应填入Text1.Text。