[填空題] 在窗體上畫一個(gè)文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True，然后

編寫如下的事件過程：

Private sub Form_Click()

Open"d:＼test＼smtext1.txt"For Input As #1

Do While Not [13]

Line Input #1，aspect $

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

[14]

Open"d:＼test＼smtext2.txt"For Output As #1

Print #1， [15]

Close #1

End sub

運(yùn)行程序，單擊窗體，將把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請(qǐng)?zhí)羁铡?/p>正確答案：

[13] EOF(1)； [14] Close #1； [15] Text1.Text或Text1

EOF函數(shù)用于測(cè)試文件指針是否到達(dá)文件末尾，它的格式是EOF(文件號(hào))，因此第13個(gè)空應(yīng)填“EOF(1)”，只要沒有到達(dá)文件末尾，就一直執(zhí)行循環(huán)內(nèi)的語句；在對(duì)文件操作完畢之后，必須關(guān)閉文件，它的格式是Close #文件號(hào)，所以第14個(gè)空應(yīng)填“Close #1”；根據(jù)題意要求輸出smtext1的內(nèi)容，而根據(jù)前面的語句，smtext1的內(nèi)容已經(jīng)賦值給了Text1.Text，所以第15空應(yīng)填“Text1.Text”或“Text1”。