某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Private Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是________。
Private Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是________。
举一反三
- 下列程序的功能是：将数据1,2,..,8写入顺序文件Num. txt中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open "Num. txt" For Output As #1 For i = 1 To 8 【13】 Next Close #1 End Sub
- 在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。 A: Private Sub Text1 Change() B: Label1．Caption=Text1．Text C: End Sub D: Private Sub Label1 Change() E: Label1．Caption=Text1．Text F: End Sub G: Private Sub Text1 Click() H: Label1．Capnon=Text1．text I: End Sub J: Private Sub Label1 Click() K: Label1．Caption=Text1．Text L: End sot
- 窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open "c: 1.txt" For Input As #1 Open "c: 2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 ________ 。
- 窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Open "c:f2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 ________ 。
- 在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i).Text＝Text1(i).Index i＝i＋1 Next End Sub 程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。