[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時，把C盤根目錄下的文件a1．txt復(fù)制到 D盤，并取名為a2,txt。 Private Sub Form_Click() Dim Ch As String Open "c：a1．txt" For 【13】 As #10 Open "d：a2．txt" For Output As #r20 Do While 【14】 Line Input #10,Ch 【15】 Loop Close 10 Close 20 End Sub

[13]Input[14]Not EOF(10)[15]Print #20，Ch

本題進(jìn)行文件復(fù)制的思路如下：首先打開源文件用于讀，打開目標(biāo)文件用于寫，然后從源文件中讀取一行信息寫到目錄文件中，再從源文件中讀取一行信息寫到目標(biāo)文件中，如此循環(huán)，直到源文件中的所有行均寫到目標(biāo)文件中。打開源文件用于讀，所以[13]處應(yīng)填“Input”。從源文件中讀取信息必須保證能讀到信息，故在讀之前應(yīng)測試源文件是否處于文件尾，所以[14]處應(yīng)填“Not EOF(10)”。從源文件中讀取一行信息后，應(yīng)把這一行信息寫到目標(biāo)文件中，所以[15]處應(yīng)填“Print #20，Ch”。