“提运单号”栏：A．PGSH0002B．ZJJ04LC0300135C．E0683D．HS03D8765

为从当前文件夹中读入文件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

pen"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

(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

为了从当前文件夹中读人文件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

为了从当前文件夹中读人文件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

某人编写了下面的程序，希望能把Textl文本框中的内容写到out．txt文件中

Private Sub Commandl_Click()

Open“out.txt”For Output As #2

Print“Text1”

Close #2

End sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A．把Print“Text1”改为Print#2，Textl

B．把Print“Textl”改为Print Textl

C．把Print“Text1”改为Write“Text1”

D．把所有#2改为#1

某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：

Private Sub Command1Click（）

Open"out．txt" For Output As#2

Print”Text1”

Close#2

End Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是（）。

A.把Print”Text1¨改为Print#2，Text1

B.把Print”Text 1”改为Print Text1

C.把Print”Text1”改为Write”Text1”

D.把所有#2改为#1

某人编写了下面的程序，希望能把Textl文本框中的内容写到out．txt文件中

Private Sub Commandl_Click()

Open“out.txt”For Output As #2

Print“Text1”

Close #2

End sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A．把Print“Text1”改为Print#2，Textl

B．把Print“Textl”改为Print Textl

C．把Print“Text1”改为Write“Text1”

D．把所有#2改为#1

（33 ）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中

Private Sub Comand1_Click （）

Open " out. t xt " For Output As #2

Print " Text1 "

Close #2

End Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A ）把 Print " Text1 " 改为 Print #2,Text1

B ）把 Print " Text1 " 改为 Print Text1

C ）把 Print " Text1 " 改为 Write " Text1 "

D ）把所有 #2 改为 #1

（33 ）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中

Private Sub Comand1_Click （）

Open " out. t xt " For Output As #2

Print " Text1 "

Close #2

End Sub

调试时发现没有达到目的，为实现上述目的，应做的修改是

A ）把 Print " Text1 " 改为 Print #2,Text1

B ）把 Print " Text1 " 改为 Print Text1

C ）把 Print " Text1 " 改为 Write " Text1 "

D ）把所有 #2 改为 #1