[填空題] 把一個(gè)磁盤文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存人另一個(gè)磁盤文件，請(qǐng)?zhí)羁胀瓿沙绦颉Ｔ诖绑w上建立一個(gè)文本框，在屬性窗口中把該文本框的Muhiline屬性設(shè)置為True，然后編寫如下的事件過程：Private Sub Form_Click( )Open"d：estsmtext1．txt"For lnput As#1Text1.Fontsize=14 Text1.FontName=“幼圓”Do While Not EOF(1)【8】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10)LoopText1.Text= 【9】 。CloseOpen"d：estsmtext2．txt"For Output As#1Print #1 【10】 Close End Sub

[8] Line lnput #1，Aspect＄

[9] whole＄ [10] Text1.Fext lnput#與Line lnput#句都可以從順序文件中讀人數(shù)據(jù)。區(qū)別在于Input#僅僅讀人數(shù)據(jù)項(xiàng)，后接變量表，讀人幾項(xiàng)數(shù)據(jù)就用幾個(gè)變量來接收。Line lnput#語句用來從順序文件中讀取一個(gè)完整的行，并把它賦給一個(gè)字符串變量。對(duì)于本題，由于要讀人一個(gè)完整的文件，并使用Do循環(huán)將每次讀入的數(shù)據(jù)通過aspect＄接受并最終賦給whole＄變量，故[8]處應(yīng)填：Line lnput #1，aspect＄。 EOF(1)函數(shù)測試文件是否被讀取完，當(dāng)Do循環(huán)語句執(zhí)行完畢后，磁盤文件被完全賦給變量whole＄。此時(shí)要在文本框中顯示，則[9]處應(yīng)填：whole＄。 磁盤文件讀入文本框后，便執(zhí)行寫入另一磁盤文件的操作。寫入用Print#語句。該語句后接兩個(gè)常用參數(shù)：文件號(hào)與表達(dá)式。本題中“1”表示文件號(hào)，即在上一步中打開讀人的文件。[10]處應(yīng)填表達(dá)式，即：Text1.Text。表示把Text1.Text中的內(nèi)容寫入到 smtext2.txt中。