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

admin2009-02-13  81

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

随机试题
最新回复(0)