在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click()
Open"d:\test\smtext1.txt"For Input As # 1
Do While Not______
Line Input # 1,aspects
wholes=wholes+aspects+Chrs(13)+Chrs(10)
Loop
Text1.Text=wholes
______
Open"d:\test\smtext2,txt"For Output As # 1
Print # 1,______;
Close # 1
End Sub
运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.tXt。请填空。