问题
填空题
下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt，复制到 D盘，并取名为a2.txt。
Private Sub Form_Click()
Dim Ch As String
Open "c:\a1.txt" For 【8】 As #10
Open "d:\a2.txt" For Output As #20
Do While 【9】
Line Input #10, Ch
【10】
Loop
Close #10
Close #20
End Sub
答案
参考答案：Input Not EOF(10) Print #20
解析： 本题进行文件复制的思路是，首先打开源文件用于读，打开目标文件用于写，然后从源文件中读取一行信息写到目录文件中，在从源文件中读取一行信息写到目标文件中，如此循环，直到源文件中的所有行均写到目标文件中。打开源文件用于读，所以【13】处应填写“Input”。从源文件中读取信息必须保证能读到信息，故在读之前应测试源文件是否处于文件尾，所以【14】处应填写“Not EOF(10)”。从源文件读取一行信息后，应把这一行信息写到目标文件中，所以【15】处应填“Print #20”。