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

[14]OutputAs#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。再结合打开语句的格式：OpenPath-nameFor打开方式As[#]文件号可知[13]处应填InputAs#10，[14]处应为OutputAs#20。在文件复制时还得保证复制文件没有结束，此时就用到了EOF函数。其格式为；EOF(文件号)。因为复制文件的文件号为10，故[15]处应填EOF(10)。