[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時(shí)，把C盤根目錄下的文件a1．txt復(fù)制到 D盤，并取名為a2,txt。 Private Sub Form_C
[填空題] 下列程序?qū)崿F(xiàn)的功能是：當(dāng)在窗體上單擊時(shí)，把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ù)制的思路如下：首先打開(kāi)源文件用于讀，打開(kāi)目標(biāo)文件用于寫(xiě)，然后從源文件中讀取一行信息寫(xiě)到目錄文件中，再?gòu)脑次募凶x取一行信息寫(xiě)到目標(biāo)文件中，如此循環(huán)，直到源文件中的所有行均寫(xiě)到目標(biāo)文件中。打開(kāi)源文件用于讀，所以[13]處應(yīng)填“Input”。從源文件中讀取信息必須保證能讀到信息，故在讀之前應(yīng)測(cè)試源文件是否處于文件尾，所以[14]處應(yīng)填“Not EOF(10)”。從源文件中讀取一行信息后，應(yīng)把這一行信息寫(xiě)到目標(biāo)文件中，所以[15]處應(yīng)填“Print #20，Ch”。
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。