2. 计算机
  3. 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form Click() Open "d：\test\smtext

在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form Click() Open "d：\test\smtext

admin2010-03-30  57
问题 在名称为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
解析 本题考查文件操作。文件操作是考试难点，也是众多考生认为困难的内容。首先把磁盘文件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 #语句的区别。
转载请注明原文地址:https://kaotiyun.com/show/me1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)