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

EOF(1)

Text1.Text或 Text1 或 Form1.Text1.Text或 Form1.Text1 或 Me.Text1.Text或Me.Text1 本題考查文件操作。文件操作是考試難點，也是眾多考生認為困難的內(nèi)容。首先把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存，如何判斷文件是否讀取完成呢 EOF函數(shù)的功能就是當(dāng)文件指針到達文件尾部時返回True，否則返回False，當(dāng)EOF(文件號)可以判斷是否讀取完成。 Linelnput#語句的功能是從一個打開的順序文件中，讀出一行數(shù)據(jù)賦給一個aspect$變量，然后進行相應(yīng)運算，Chr(13)+Chr(10)的功能是回車換行。最后將 whole$變量的值顯示在文本框中，然后關(guān)閉#1文件。接下來就是如何把文本框中的內(nèi)容存入文件中，這里使用Open "d：estsmtext2.txt" ForOutput As #1，該語句可以打開d：est目錄下的名為smtext2.txt的文件，如果不存在，該語句將創(chuàng)建一個名為smtext2.txt的文件。文件的寫入是由Print #語句實現(xiàn)，考生需要注意區(qū)分Print #語句與Write #語句的區(qū)別。