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

admin2020-04-18  37

问题 窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub.Commandl_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 FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种。本题中打开了两个文件,其中l号文件用于读取,2号文件用于写入。当进行读取时循环条件应该为Not EOF(11即还没有读取到文件结尾。
转载请注明原文地址:https://jikaoti.com/ti/0hx0FFFM
0

最新回复(0)