简述真理及其客观性的含义。

某人编写了下面的程序，希望能把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

（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

ck（） 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

命令按钮，就可以把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到文件原有内容之后 。 下面能够实现上述功能的程序是（）

A ） Private Sub Command1_Click （）

Open “ out.txt ” For Inpit As#1

Print#1,Text1.Text

Close#1

End Sub

B ） Private Sub Command1_Click （）

Open “ out.txt ” For Outpit As#1

Print#1,Text1.Text

Close#1

End Sub

C ） Private Sub Command1_Click （）

Open “ out.txt ” For Append As#1

Print#1,Text1.Text

Close#1

End Sub

D ） Private Sub Command1_Click （）

Open “ out.txt ” For Random As#1

Print#1,Text1.Text

Close#1

End Sub

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

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

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

在窗体上画一个文本框，名称为Textl，然后编写如下程序：

Private Sub Form_Load()

Open”d：＼temp＼dat．txt”For Output As1

Textl．Text=“”

End Sub

Private Sub Textl KeyPress(KeyAscii As Integer)

IfKeyAscii=13 Then

If UCase(Textl．Text)=【 】Then

Close1

End

Else

Write1，【 】

Textl．Text=…

End If

End If

End SUb

以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。