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

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d：\test\smTex

admin2009-02-13  84
问题 在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
   Private Sub Form_Click(   )
      Open“d：\test\smText1.txt"For lnput As#1
      Do While Not【  】
         Line lnput#1，aspect＄
         whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10)
      Loop
      Text1.Text=whole＄
      Close#1
      Open“d：\test\smtexttxt"For Output As #1
      Print #1，【  】
      Close#1
    End Sub
   上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtexttxt。请填空。
选项
答案EOF(1) , Text1.Text
解析 EOF(  )函数返回一个表示文件指针是否到达文件末尾的值。当到文件末尾时， EOF(  )函数返回True，否则返回FMse。所以[14]为EOF(1)，表示如果没有到达文件1的末尾。Print#1，Text1．Text表示把整个文本框Text1的内容一次性的写入文件。
转载请注明原文地址:https://kaotiyun.com/show/691p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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