2. 计算机
  3. 下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【 】A

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【 】A

admin2010-09-11  13
问题 下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。
Private Sub form_ Click()
Dim Ch As String
Open "c:\a1. txt, for【  】As #10
Open "d:\a2.txt" for Output As #20
do while【  】
Line Input #10, Ch
【  】
Loop
Close 10
Close 20
End Sub
选项
答案Input, Not EOF(10),Print #20，Ch
解析 本题进行文件复制的思路如下：首先打开源文件用来读，打开目标文件用于写，然后从源文件中读取一行信息写到目标文件中，再从源文件中读取一行信息再写到目标文件中去……，如此循环直到源文件中的所有行均写到目标文件中。打开源文件用于读，所以第一空处应填“Input”。从源文件中读取信息必须保证能读到信息，故在读之前应测试源文件是否处于文件尾，所以第二空处应填“Not EOF(10)”。从源文件中读取一行信息后，应把这一行信息写到目标文件中，所以第三空处应填“Print #20，Ch”。
转载请注明原文地址:https://jikaoti.com/ti/gGg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)