[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存人另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程:Private Sub Form_Click( )Open"d:estsmtext1.txt"For lnput As#1Text1.Fontsize=14 Text1.FontName=“幼圆”Do While Not EOF(1)【8】 whole$=whole $ aspect $+Chr$(13)+Chr $(10)LoopText1.Text= 【9】 。CloseOpen"d:estsmtext2.txt"For Output As#1Print #1 【10】 Close End Sub
参考解析:[9] whole$ [10] Text1.Fext lnput#与Line lnput#句都可以从顺序文件中读人数据。区别在于Input#仅仅读人数据项,后接变量表,读人几项数据就用几个变量来接收。Line lnput#语句用来从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。对于本题,由于要读人一个完整的文件,并使用Do循环将每次读入的数据通过aspect$接受并最终赋给whole$变量,故[8]处应填:Line lnput #1,aspect$。 EOF(1)函数测试文件是否被读取完,当Do循环语句执行完毕后,磁盘文件被完全赋给变量whole$。此时要在文本框中显示,则[9]处应填:whole$。 磁盘文件读入文本框后,便执行写入另一磁盘文件的操作。写入用Print#语句。该语句后接两个常用参数:文件号与表达式。本题中“1”表示文件号,即在上一步中打开读人的文件。[10]处应填表达式,即:Text1.Text。表示把Text1.Text中的内容写入到 smtext2.txt中。