2. 计算机
  3. 下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。 Private Sub Form C1ick() Dim ch As String Open "C:\a1.txt" For【 】

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

admin2010-03-30  50
问题 下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。
   Private Sub Form C1ick()
        Dim ch As String
        Open "C:\a1.txt" For【  】
        Open "C:\a2.txt" For【  】
        Do While Not【  】
            ch＝Input(1,10)
            Print #20,ch;
        Loop
        Close #10,#20
   End Sub
选项
答案 Input As # 10, Output As # 20 , 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)。
转载请注明原文地址:https://kaotiyun.com/show/Nomp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)