窗体上有一个名称为Commandl的命令按钮,其事件过程如下: Private Sub Commandl Click() Dim S As String ()pen"C:\Filel.txt"For Input As #1 ()pe

admin2013-01-23  29

问题 窗体上有一个名称为Commandl的命令按钮,其事件过程如下:
Private Sub Commandl Click()
    Dim S As String
    ()pen"C:\Filel.txt"For Input As #1
    ()pen"C:\File2.txt"For Output As #2
    Do While Not EOF(1)
    Input#1,S
    Print#2,S
    Loop
    Close#1,#2
    End Sub
    关于上述程序,以下叙述中错误的是(    )。

选项 A、程序把Filel.txt文件的内容存放到File2.txt文件中
B、程序中打开了两个随机文件
C、程序中打开了两个顺序文件
D、“EOF(1)”中的“1”对应于Filel.txt文件

答案B

解析 此函数的功能是打开两个文件,把文件1的内容存放到文件2中。
转载请注明原文地址:https://kaotiyun.com/show/18hp777K
0

最新回复(0)