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

EOF(1)；Text1.Text

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