为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:Private Sub Command1_Click( )Open"File1.txt"For Output As#20Do While Not EOF(20)Line Input#20,ch$Print chLoopClose#20End Sub程序调试时,发现有错误,下面的修改方案中正确的是( )。A.在Open语句中的文件名前添加路径B.把程序中各处的“20”改为“1”C.把Print ch语句改为Print#20,chD.把Ope

题目

为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:

Private Sub Command1_Click( )

Open"File1.txt"For Output As#20

Do While Not EOF(20)

Line Input#20,ch$

Print ch

Loop

Close#20

End Sub

程序调试时,发现有错误,下面的修改方案中正确的是( )。

A.在Open语句中的文件名前添加路径

B.把程序中各处的“20”改为“1”

C.把Print ch语句改为Print#20,ch

D.把Open语句中的0utput改为Input


相似考题
更多“为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序:Private Sub Command1_Click( )Ope ”相关问题
  • 第1题:

    执行语句Open"C: \StuData.dat"For 1nput As#2后,系统

    A.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存

    B.在C盘当前文件夹下建立名为StuData.dat的顺序文件

    C.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中

    D.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中


    正确答案:A
    解析:Open语句兼有打开文件和建立文件两种功能,Input是指定顺序输入方式,题意为打开已存在的数据文件,以便从文件中读出记录。

  • 第2题:

    为从当前文件夹中读入文件File1.txt,某人编写了下面的程序:

    Private Sub Command1_Click( )

    Open"File1.txt"For Output As20

    Do While Not EOF(20)

    Line Input20,ch$

    Print ch

    Loop

    Close20

    End Sub

    程序调试时,发现有错误,下面的修改方案中正确的是( )。

    A.在Open语句中的文件名前添加路径

    B.把程序中各处的“20”改为“1”

    C.把Print ch语句改为Print20,ch

    D.把Open语句中的0utput改为Input


    正确答案:D

    D。【解析】VB中文件操作有Input方式和Output方式,Input是从硬盘上把文件内容读入到内存,Output是将数据输出到文件。

  • 第3题:

    修改期中考试程序,添加3个菜单项,分别是“读入”和“保存”、“另存”功能,选“读入”时提示输入文件名,并读入文件中多边形数据,选“保存”功能可以保存当前多边形数据到当前读入的文件,若没有当前读入文件,则提示输入文件名再保存,选“另存”功能提示输入文件名,并保存当前多边形数据到该文件。


    A

  • 第4题:

    为丫从当前文件夹中读入文件File1.txt,某人编写了下面的程序: Private Sub Command1_Click( ) Open"File1.txt"For Output As#20 Do While Not EOF(20) Line Input#20,ch$ Print ch Loop Close#20 End Sub 程序调试时,发现有错误,下面的修改方案中正确的是( )。

    A.在Open语句中的文件名前添加路径

    B.把程序中各处的“20”改为“1”

    C.把Print ch语句改为Print#20,ch

    D.把Open语句中的0utput改为Input


    正确答案:D
    D。【解析】VB中文件操作有Input方式和Output方式,Input是从硬盘上把文件内容读入到内存,Output是将数据输出到文件。

  • 第5题:

    (34)为了从当前文件夹中读入文件File l .txt,某人编写了下面的程序:

    Private Sub Command 1_CLick()

    Open"File l .txt" For Output As #20

    Do While Not EOF(20)

    Line Input #20, ch$

    Print ch

    Loop

    Close #20

    End Sub

    程序调试时,发现有错误,下面的修改方案中正确的是

    A)在Open语句中的文件名前添加路径

    B)把程序中各处的"20"改为"1"

    C)把Print ch语句改为Print #20, ch

    D )把Open语句中的Output改为Input


    正确答案:D