把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。

在窗体上建立一个文本框,在属性窗口中把该文本框的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

时间:2023-10-03 16:09:59

相似题目