填空题

下列程序实现的功能是：当在窗体上单击时，把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