[填空題] 下列程序實現(xiàn)的功能是：當在窗體上單擊時，把C盤根目錄下的文件a1.txt，復制到 D盤，并取名為a2.txt。 Private Sub Form_Click() Dim Ch As String Open "c:a1.txt" For 【8】 As #10 Open "d:a2.txt" For Output As #20 Do While 【9】 Line Input #10, Ch 【10】 Loop Close #10 Close #20 End Sub

Input Not EOF(10) Print #20

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