某人编写了下面的程序，希望能把Textl文本框中的内容写到out．txt文件中Private Sub Commandl_Click()Open“out.txt”For Output As #2Print“Text1”Close #2End sub调试时发现没有达到目的，为实现上述目的，应做的修改是A．把Print“Text1”改为Print#2，TextlB．把Print“Textl”改为Print TextlC．把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

窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。

Private Sub Commandl_Click()

Textl=“”

Number=FreeFile

Open“c：＼test．txt”For Input As Number

Do While Not EOF(【 】)

Line InputNumber，s

Textl．Text=Textl．Text+【 】+Chr(13)+Chr(10)

Loop

Close Number

End Sub

在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母“A”，则可被调用的事件过程是。 A．Form_KeyPress B．Textl_LostFocus C．Textl_Click D．Textl_Change

在窗体上画一个文本框，名称为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”，则不写入文件，直接结束程序。请填空。

窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。