在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设

置为True，然后编写如下的事件过程：

Private Sub Form. Click()

Open "d：\test\smtext1.txt" For Input As 1

Do While Not

Line Input 1，aspects

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

Close 1

Open "d：\test\smtext2.txt" For Output As 1

Print 1, ______

Close 1

End Sub

上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。