问题
填空题
下列程序的功能是把文件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)。