某人编写了下面的程序,希望能把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个文本框中显示的内容分别为( )。