为丫从当前文件夹中读入文件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
第1题：
修改期中考试程序，添加3个菜单项，分别是“读入”和“保存”、“另存”功能，选“读入”时提示输入文件名，并读入文件中多边形数据，选“保存”功能可以保存当前多边形数据到当前读入的文件，若没有当前读入文件，则提示输入文件名再保存，选“另存”功能提示输入文件名，并保存当前多边形数据到该文件。
第2题：
(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
第3题：
为从当前文件夹中读入文件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。【解析】VB中文件操作有Input方式和Output方式，Input是从硬盘上把文件内容读入到内存，Output是将数据输出到文件。
第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
第5题：
执行语句Open"C: \StuData.dat"For 1nput As#2后,系统
A．将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
B．在C盘当前文件夹下建立名为StuData.dat的顺序文件
C．将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
D．将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中
第6题：
执行语句Open"C:\StuData.dat"For lnput As#2后，系统
A．将C盘当前文件夹下名为StuData.dat的文件的内容读入内存
B．在C盘当前文件夹下建立名为StuData.dat的顺序文件
C．将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中
D．将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中
第7题：
为了从当前文件夹中读人文件Filel．txt，某人编写了下面的程序：
Private Sub Commandl_Click()
Open“Filel．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
第8题：
执行语句Open"C:\SDat.dat"For Input As#2后，系统( )。
A．将C盘当前文件夹下名为SDat.dat文件的内容读入内存
B．在C盘当前文件夹下建立名为SDat.dat的顺序文件
C．将内存数据存放在C盘当前文件夹下名为SDat.dat的文件中
D．将某个磁盘文件的内容写入C盘当前文件夹下名为SDat.dat的文件中
第9题：
（33）执行语句Open"Test.Dat"For OutInput As#1,系统 A.将C盘当前文件夹下名为SDat.dat文件的内容读入内存B.在C盘当前文件夹下建立名为SDat.dat的顺序文件C.将内存数据存放在C盘当前文件夹名为SDat.dat的文件中D.将某个磁盘文件的内容写入C盘当前文件夹下名为SDat.dat的文件中