在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:Private Sub Form. Click()Open "d:\test\smtext1.txt" For Input As 1Do While NotLine Input 1,aspectswhole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close 1Open "d:\test\sm

题目

在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:

Private Sub Form. Click()

Open "d:\test\smtext1.txt" For Input As 1

Do While Not

Line Input 1,aspects

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。


相似考题
参考答案和解析
正确答案:EOF(1)Text1.Text或 Text1 或 Form1.Text1.Text或 Form1.Text1 或 Me.Text1.Text或Me.Text1
EOF(1),Text1.Text或 Text1 或 Form1.Text1.Text或 Form1.Text1 或 Me.Text1.Text或Me.Text1 解析:本题考查文件操作。文件操作是考试难点,也是众多考生认为困难的内容。首先把磁盘文件smtext1.txt的内容读到内存,如何判断文件是否读取完成呢? EOF函数的功能就是当文件指针到达文件尾部时返回True,否则返回False,当EOF(文件号)可以判断是否读取完成。 Linelnput#语句的功能是从一个打开的顺序文件中,读出一行数据赋给一个aspect$变量,然后进行相应运算,Chr(13)+Chr(10)的功能是回车换行。最后将 whole$变量的值显示在文本框中,然后关闭#1文件。接下来就是如何把文本框中的内容存入文件中,这里使用Open "d:\test\smtext2.txt" ForOutput As #1,该语句可以打开d:\test\目录下的名为smtext2.txt的文件,如果不存在,该语句将创建一个名为smtext2.txt的文件。文件的写入是由Print #语句实现,考生需要注意区分Print #语句与Write #语句的区别。
更多“在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设 ”相关问题
  • 第1题:

    在名称为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

  • 第2题:

    在名为Form1的窗体上绘制一个文本框(名称为Text1,Text属性为“京”,Font属性为“宋体”)和一个水平滚动条(名称为HS1)。在属性窗口中对滚动条设置如下属性:

    Min 10

    Max 100

    LargeChange 5

    SmallChange 2

    编写适当的事件过程,使程序运行后,若移动滚动条上的滚动框,则可扩大或缩小文本框中的“京”字。运行后的窗体如下图所示。

    注意:

    程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise90.vbp,窗体文件名为execise90.frm。


    正确答案:

  • 第3题:

    在名为Form1的窗体上绘制一个水平滚动条,其名称为HS1,设置滚动框Min属性为 1000,Max属性为2000,LargeChange属性为100,SmailChange属性为2;然后再绘制一个文本框,其名称为Text1,初始内容为空白。编写适当的事件过程,使程序运行后,移动滚动框,则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。

    注意:

    不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为execise98.vbp,窗体文件名为execise98.frm。


    正确答案:

  • 第4题:

    在名为Form1的窗体上绘制一个文本框,其名称为Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能:

    (1)在文本框中可以显示多行文本;

    (2)在文本框中显示垂直滚动条。

    (3)文本框中显示的初始信息为“计算机等级考试”。

    (4)文本框中显示的字体为三号规则黑体。

    (5)窗体的标题为“设置文本框属性”。

    完成设置后的窗体如下图所示。

    注意:

    不编写任何代码:文件必须存放在考生文件夹中,工程文件名为execise71.vbp,窗体文件名为execise71.frm。


    正确答案:

  • 第5题:

    在名为Form1的窗体上绘制一个标签,名为Lab1,标签上显示“请输入密码”;在标签的右边绘制一个文本框,名为Text1,其宽、高分别为1500和300。设置适当的属性使得在输入密码时,文本框中显示“*”字符,此外再把窗体的标题设置为“PassWord窗口”。运行时的窗体如下图所示。

    注意:

    以上设置都只能在属性窗口中进行设置;文件必须存放在考生文件夹中,工程文件名为execise89.vbp,窗体文件名为execise89.frm。


    正确答案: