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

17 查阅

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

参考答案:

[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)。

计算机考试