U61W型车罐体内径Ø3000mm、最大工作压力0．35MPA、输送距离水平远（）、垂直高30m。

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