（ 10 ） 在窗体上画一个文本框 ， 其名称为 Text1 ， 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ，然后编写如下的事件过程：Private Sub Form_Click （）Open " d:\test\smtext1.Txt " For Input As #1Do While Not 【 13 】Line Input #1, aspect$W hole$=whole$+aspect$+Chr$ （ 13 ） +Chr$ （ 10 ）LoopText1.Text=w
题目
（ 10 ） 在窗体上画一个文本框 ， 其名称为 Text1 ， 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ，然后编写如下的事件过程：
Private Sub Form_Click （）
Open " d:\test\smtext1.Txt " For Input As #1
Do While Not 【 13 】
Line Input #1, aspect$
W hole$=whole$+aspect$+Chr$ （ 13 ） +Chr$ （ 10 ）
Loop
Text1.Text=whole$
【 14 】
Open " d:\test\smtext2.Txt " For Output As #1
Print #1, 【 15 】
Close #1
End Sub
运行程序 ， 单击窗体 ， 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。
相似考题
参考答案和解析
更多“( 10 ) 在窗体上画一个文本框 , 其名称为 Text1 , 在属性窗口中把该文本框的 Mult i Line 属性设 ”相关问题
-
第1题：
请根据以下各小题的要求设计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属性设置窗体标题的内容。
③ 编程代码：(无)
-
第2题：
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
正确答案：C
解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。 -
第3题：
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
正确答案：C
解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。 -
第4题：
在名称为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 -
第5题：
在名为Form1的窗体上绘制一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：
(1)在文本框中可以显示多行文本；
(2)在文本框中显示垂直滚动条。
(3)文本框中显示的初始信息为“计算机等级考试”。
(4)文本框中显示的字体为三号规则黑体。
(5)窗体的标题为“设置文本框属性”。
完成设置后的窗体如下图所示。
注意：
不编写任何代码：文件必须存放在考生文件夹中，工程文件名为execise71.vbp，窗体文件名为execise71.frm。
正确答案：