窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:\f1.tx

admin2015-08-28  37

问题 窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub Command1_Click()
    Open "c:\f1.txt" For Input As #1
    Open "c:\f2.txt" For Output As #2
    Do While Not EOF(2)
        Line Input #1, str1
        Print #2, str1
    Loop
Close
Kill "c:\f1.txt"
End Sub
该程序运行时发生错误,应该进行的修改是

选项 A、打开f1.txt应该使用Output 方式,打开f2.txt 应该使用Input 方式
B、Not EOF(2)应该改为Not EOF(1)
C、Line Input应改为Get
D、Close语句改为Close All

答案B

解析 Open打开文件时,可以用三种模式,即OutPut:打开一个文件,将对该文件进行写操作;Input:打开一个文件,将对该文件进行读操作;Append:打开一个文件,将在该文件末尾追加记录。
Do While循环应该判断1#文件的结尾,即Do While Not EOF(1),不是结尾的话把内容写到2#文件中。
Line Input语句为从已打开的顺序文件中读出一行并将它分配给 String变量。
Close语句后面有文件号,就关闭这个文件,否则就关闭所有打开的文件。此题中应该关闭所有的文件。选B)。
转载请注明原文地址:https://kaotiyun.com/show/X1Lp777K
0

最新回复(0)