[填空題] 把一個磁盤文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入另一個磁盤文件，請?zhí)羁胀瓿沙绦颉?在窗體上建立一個文本框，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為 True，然后編寫如下的事件過程： Prlvate Sub Form_Click() Open"D:est1.txt"For Input As # 1 Text1.FontSize＝14 Text1.FontName=“幼圓” Do While Not EOF(1) 【13】 whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text＝ 【14】 Close Open"D:est2.txt"For Output As # 1 Print # 1, 【15】 Close End Sub

[AC] Line Input #A,aspect$

[14] Whole $ [15] Text1. Text 文件的讀操作使用Input#語句，其格式為：Input #文件號，題中根據(jù)EOF(1)可以推斷文件號為1，由語句whole $＝whole $+aspect $+Chr $(13)+Chr$(10)可知變量為aspect$，并且是以行讀入內(nèi)存的，故 [13]處的文件讀操作語句應(yīng)為Line Input # 1,aspect$。讀入內(nèi)容在文本框中顯示出來，就給文本框的Text屬性賦讀入內(nèi)容Whole $即可。 Print #1, Text1. Text表示把整個文本框Text1的內(nèi)容一次性的寫入文件。