[填空题] 下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。Private Sub Form

[填空题] 下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。 Private Sub Form

[填空题] 下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。

Private Sub Form_Click()

Dim Ch As String

Open "c：a1．txt" For 【13】 As #10

Open "d：a2．txt" For Output As #r20

Do While 【14】

Line Input #10,Ch

【15】

Loop

Close 10

Close 20

End Sub

正确答案：

[13]Input[14]Not EOF(10)[15]Print #20，Ch

参考解析：

本题进行文件复制的思路如下：首先打开源文件用于读，打开目标文件用于写，然后从源文件中读取一行信息写到目录文件中，再从源文件中读取一行信息写到目标文件中，如此循环，直到源文件中的所有行均写到目标文件中。打开源文件用于读，所以[13]处应填“Input”。从源文件中读取信息必须保证能读到信息，故在读之前应测试源文件是否处于文件尾，所以[14]处应填“Not EOF(10)”。从源文件中读取一行信息后，应把这一行信息写到目标文件中，所以[15]处应填“Print #20，Ch”。