[填空題] 在名稱為Form1的窗體上畫一個(gè)文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True，然后編寫如下的事件過程：Private Sub Form_Click() 5Open "d:estsmtext1.txt" For Input As #1Do While Not _________Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$Close #1 Open "d:estsmtext2.txt" For Output As #1Print #1, _________Close #1 End Sub 上述程序的功能是，把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把 該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請(qǐng)?zhí)羁铡?/p>正確答案：

EOF(A) , TextA.Text

EOF 函數(shù)是判斷 Random 或順 序 Input 打 開 的文件是否 已 到結(jié)尾。本 題 中首先是要 讀出 "d:estsmtext1.txt"中的內(nèi)容，使用 Do While 語(yǔ)句來循環(huán)讀出內(nèi)容并賦值給變量 whole$，而結(jié)束循環(huán)的條件 是到達(dá)文件的尾部，所以第一空應(yīng)該填 EOF(1)。讀完以后把內(nèi)容賦值給 Text1 文本框。程序的第二部分就 是向文件 "d:estsmtext2.txt"寫內(nèi)容，題目 要求把文本框 中的內(nèi)容寫入 文件 smtext2.txt ，所以第二空填 Text1.Text。