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

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

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

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

VB程序中關于文件的操作，主要是先打開一個文件，然后對這個文件進行讀或寫的操作，操作完成后，關閉這個文件。打開文件的基本格式為：Open FileName For Mode As #FileNumber。其中，FileNumber參數表示打開文件的句柄，即文件號。當從文件中讀取全部數據時，常用Do While當型循環(huán)，并以Not EOF(文件號)作為循環(huán)條件，用于判斷是否已到文件結尾，故第一空應填入EOF(1)。由于在寫文件時又將需要寫入的文件打開為1號文件，所以再打開該文件前應該先關閉1號文件，第二空應填入Close #1；若要對以Output形式打開的某文件使用Print方法進行輸出，標準格式為：Print文件號，字符串，故第三空應填入Text1.Text。