某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中： Private Sub Command1Click（ ） Open"out．txt" For Output As#2 Print”Text1” Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是（ ）。A.把Print”Text1¨改为Print#2，Text1B.把Print”Text 1”改为Print Text1C.把Print”Text1”改为Write”Text1”D.把所有#2改
题目
某人编写了下面的程序，希望能把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
相似考题
更多“某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中: Private Sub Command1Cli ”相关问题
-
第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
正确答案：A
解析：向打开的文件写入一段内容的格式是：Print#文件号“读入的内容”。而把一个文档写入新打开的文件应该是：Print#文件号文档名。 -
第2题：
在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。
正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为 Command1、Command2和Command3标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“计算”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。 -
第3题：
在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2(如下图所示)，初始情况下都没有内容。请编写适当的事件过程，使得程序在运行时，在Text1中输入的任何字符，立即显示在Text2中。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise7/vbp，窗体文件名为execise7.frm。
正确答案：
-
第4题：
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。
正确答案：C
C) 【解析】本题考查文件的打开方式。题目中要求在命令按钮单击事件中，往文件中写入信息，并且是追加到原有信息的后面，因此，要用Append方式打开文件。
-
第5题：
在名为Form1的窗体上绘制一个文本框，名为Text1，无初始内容；再绘制—个图片框，名为Pic1。请编写Text1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如下图所示。
注意：
程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。
正确答案：