[填空题] 下列程序实现的功能是:当在窗体上单击时,把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
[填空题] 下列程序实现的功能是:当在窗体上单击时,把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
[8]Input
[9] Not EOF(10)[10]Print #20,Ch 本题进行文件复制的思路如下:首先打开源文件用来读,打开目标文件用于写,然后从源文件中读取一行信息写到目标文件中,再从源文件中读取一行信息再写到目标文件中去……,如此循环直到源文件中的所有行均写到目标文件中。打开源文件用于读,所以第一空处应填“Input”。从源文件中读取信息必须保证能读到信息,故在读之前应测试源文件是否处于文件尾,所以第二空处应填“Not EOF(10)”。从源文件中读取一行信息后,应把这一行信息写到目标文件中,所以第三空处应填“Print #20,Ch”。
VIP截止日期:2025-01-02 03:09:14
←请使用支付宝扫码支付VIP截止日期:2025-01-02 03:09:14
←请使用微信扫码支付