把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。 在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为 True,然后编写如下的事件过程: Prlvate Su

admin2010-03-30  29

问题 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。
   在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为 True,然后编写如下的事件过程:
   Prlvate Sub Form_Click()
       Open"D:\test1.txt"For Input As # 1
       Text1.FontSize=14
       Text1.FontName=“幼圆”
       Do While Not EOF(1)
         【  】
          whole$=whole$+aspect$+Chr$(13)+Chr$(10)
       Loop
       Text1.Text=【  】
       Close
       Open"D:\test2.txt"For Output As # 1
       Print # 1,【  】
       Close
   End Sub

选项

答案Line Input #1,aspect$, Whole $,Text1. Text

解析 文件的读操作使用Input#语句,其格式为:Input #文件号,题中根据EOF(1)可以推断文件号为1,由语句whole $=whole $+aspect $+Chr $(13)+Chr$(10)可知变量为aspect$,并且是以行读入内存的,故 [13]处的文件读操作语句应为Line Input # 1,aspect$。读入内容在文本框中显示出来,就给文本框的Text属性赋读入内容Whole $即可。 Print #1, Text1. Text表示把整个文本框Text1的内容一次性的写入文件。
转载请注明原文地址:https://jikaoti.com/ti/YZg0FFFM
0

随机试题
最新回复(0)