[填空題] 在窗體上畫一個(gè)文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True，然后編寫如下的事件過(guò)程：

Private Sub Form_Click()

Open "d:Temptext1.txt" For Input As #1

Do While Not______。

Line Input #1,aspectS

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

Loop

Text1.Text=whole$

______。

Open "d:Temptext2.txt" For Output As #1

Print #1,______。

Close #1

End Sub

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

EOF(1)；Close #1；Text1.Text (或Text1)

VB程序中關(guān)于文件的操作，主要是先打開一個(gè)文件，然后對(duì)這個(gè)文件進(jìn)行讀或?qū)懙牟僮?，操作完成后，關(guān)閉這個(gè)文件。打開文件的基本格式為：Open FileName For Mode As #FileNumber。其中，F(xiàn)ileNumber參數(shù)表示打開文件的句柄，即文件號(hào)。當(dāng)從文件中讀取全部數(shù)據(jù)時(shí)，常用Do While當(dāng)型循環(huán)，并以Not EOF(文件號(hào))作為循環(huán)條件，用于判斷是否已到文件結(jié)尾，故第一空應(yīng)填入EOF(1)。由于在寫文件時(shí)又將需要寫入的文件打開為1號(hào)文件，所以再打開該文件前應(yīng)該先關(guān)閉1號(hào)文件，第二空應(yīng)填入Close #1；若要對(duì)以O(shè)utput形式打開的某文件使用Print方法進(jìn)行輸出，標(biāo)準(zhǔn)格式為：Print文件號(hào)，字符串，故第三空應(yīng)填入Text1.Text。