![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
( 10 ) 在窗体上画一个文本框 , 其名称为 Text1 , 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ,然后编写如下的事件过程: Private Sub Form_Click () Open ' d:/test/smtext1.Txt ' For Input As #1 Do While Not 【 13 】 Line Input #1, aspect$ W hole$=whole$+aspect$+Chr$ ( 13 ) +Chr$ ( 10 ) Loop Text1.Text=whole$ 【 14 】 Open ' d:/test/smtext2.Txt ' For Output As #1 Print #1, 【 15 】 Close #1 End Sub 运行程序 , 单击窗体 , 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。