[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存人另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的Muhiline属性设置为Tru
[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存人另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click( )
Open"d:estsmtext1.txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【8】
whole$=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text= 【9】 。
Close
Open"d:estsmtext2.txt"For Output As#1
Print #1 【10】
Close
End Sub
参考答案: