在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（）Open "d:\test\smtext1.txt" For Input As #1Do While Not ______Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）LoopText1.Text = whole$Close
题目
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click（）
Open "d:\test\smtext1.txt" For Input As #1
Do While Not ______
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）
Loop
Text1.Text = whole$
Close #1
Open "d:\test\smtext2.txt" For Output As #1
Print #1, ______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
相似考题
更多“在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属 ”相关问题
-
第1题：
创建名称为Form1的窗体，在该窗体上画一个文本框，名称为Text1，文本框中初始内容为Visual Basic。在文本框的右边画一个垂直滚动条，名称为VScrolll。滚动条的高度为 3000，宽度为375。在图片框的下方画一个命令按钮，名称为Command1，标题为“清除”。文本框的宽度为2000，高度为600，如图3所示。编写一个事件过程，使程序运行后，单击“清除”按钮，文本框中的文字被清除。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体文件名为ylcl.frm。
正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在标签下方画出文本框在文本框属性窗口中将Height屑性设置为600、Width属性设置为2000、Text属性设置为Visual Basic。 (3)在工具箱中选择标签控件在标签的属性窗口中将Height属性设置为3000、Width属性设置为375。 (4)在工具箱中选择命令按钮在文本框的下方画出一个命令按钮在属性窗口中将 Caption属性设置为“清除”。双击按钮弹出代码窗口编写事件过程如下； Private Sub Command1_Click() Text1. Text=" " End Sub (5)按F5键运行程序。如图3所示。 (6)执行“文件”→“保存工程”命令将工程文件命名为ylc1.vbp窗体文件命名为 ylcl.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在标签下方画出文本框，在文本框属性窗口中，将Height屑性设置为600、Width属性设置为2000、Text属性设置为Visual Basic。 (3)在工具箱中选择标签控件，在标签的属性窗口中，将Height属性设置为3000、Width属性设置为375。 (4)在工具箱中选择命令按钮，在文本框的下方画出一个命令按钮，在属性窗口中将 Caption属性设置为“清除”。双击按钮弹出代码窗口，编写事件过程如下； Private Sub Command1_Click() Text1. Text=" " End Sub (5)按F5键运行程序。如图3所示。 (6)执行“文件”→“保存工程”命令，将工程文件命名为ylc1.vbp，窗体文件命名为 ylcl.frm。 -
第2题：
在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private SUb Form_CnCk()
Open"d:\tes\smtext1.txt"For Input AS 1
Do While Not EOF(1)
Line Iput 1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
正确答案：Textl.Text或Textl或Forml.Textl.Text或Forml.Textl或Me.Textl.Text或Me.Textl
Textl.Text或Textl或Forml.Textl.Text或Forml.Textl或Me.Textl.Text或Me.Textl -
第3题：
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。
A．
B．
C．
D．
正确答案：B
-
第4题：
请根据以下各小题的要求设计Visaul Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1，Min属性为0，Max属性为100，SmallChange属性为2，LargeChange属性为10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图1—1所示，其中xx是滚动框所在的位置。
存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在名称为Form1的窗体上画一个文体框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：
1)在文本框中可以显示多行文本
2)在文本框中显示垂直滚动条
3)文本框中显示的初始信息为“程序设计”
4)在文本框中显示的字体为三号规则黑体
5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。
要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：按以下步骤操作： ① 启动Visual Basic在窗体上画1个水平滚动条和1个列表框。 ② 按F4键激活属性窗口在属性窗口中设置滚动条和列表框的属性见表1。
③ 编写窗体的Click事件过程；
Private Sub Form_Click()
L1.AddItem"滚动条的当前值是:"
&HS1. Value
End Sub
2．① 对象主要属性设置如表2所示。
② 分析：按试题要求在窗体上画出一个文本框并分别将它们属性按表2的内容进行设置。MultiLine属性设置为True文本框显示多行文本；SerollBar属性设置为2文本框显示垂直滚动条；设置Text属性中的内容为初始信息；用FontName和FontSize属性分别设置文本框的字型和字号；Caption属性设置窗体标题的内容。
③ 编程代码：(无)
按以下步骤操作： ① 启动Visual Basic，在窗体上画1个水平滚动条和1个列表框。 ② 按F4键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表1。
③ 编写窗体的Click事件过程；
Private Sub Form_Click()
L1.AddItem"滚动条的当前值是:"
&HS1. Value
End Sub
2．① 对象主要属性设置如表2所示。
② 分析：按试题要求在窗体上画出一个文本框，并分别将它们属性按表2的内容进行设置。MultiLine属性设置为True，文本框显示多行文本；SerollBar属性设置为2，文本框显示垂直滚动条；设置Text属性中的内容为初始信息；用FontName和FontSize属性分别设置文本框的字型和字号；Caption属性设置窗体标题的内容。
③ 编程代码：(无)
-
第5题：
在名为Form1的窗体上绘制一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：
(1)在文本框中可以显示多行文本；
(2)在文本框中显示垂直滚动条。
(3)文本框中显示的初始信息为“计算机等级考试”。
(4)文本框中显示的字体为三号规则黑体。
(5)窗体的标题为“设置文本框属性”。
完成设置后的窗体如下图所示。
注意：
不编写任何代码：文件必须存放在考生文件夹中，工程文件名为execise71.vbp，窗体文件名为execise71.frm。
正确答案：