填空题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 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