[填空题] 下列程序的功能是把文件C:a1.txt复制成C:a2.txt，请填空。 Private Sub Form C1ick() Dim ch As String Open "C:a1

[填空题] 下列程序的功能是把文件C:a1.txt复制成C:a2.txt，请填空。
Private Sub Form C1ick()
Dim ch As String
Open "C:a1.txt" For 【13】
Open "C:a2.txt" For 【14】
Do While Not 【15】
ch＝Input(1,10)
Print #20,ch;
Loop
Close #10,#20
End Sub

参考答案：

[13] Input As # 10 [14] Output As # 20 [15] EOF(10)

问题解析:

根据程序中的语句Close # 10， #20可知两个文件的文件号分别为10，20。程序的功能是把文件C:a1.txt复制成C: a2.txt即最后输出文件的内容为C;a2.txt的内容，故a1.txt的打开方式为Input.a2.txt的打开方式为output。根据语句Print # 20.ch可推断文件C:a2.txt的文件号为20，另一个为10。再结合打开语句的格式：Open Path- name For打开方式As[#]文件号可知[13]处应填Input As #10，[14]处应为Output As #20。在文件复制时还得保证复制文件没有结束，此时就用到了EOF函数。其格式为；EOF(文件号)。因为复制文件的文件号为10，故[15]处应填EOF(10)。