首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下过程: Sub proc() Dim ch As String Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do Whi
有如下过程: Sub proc() Dim ch As String Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do Whi
admin
2018-07-11
18
问题
有如下过程:
Sub proc()
Dim ch As String
Open "file1.txt" For Input As #1
Open "file1_bak.txt" For Output As #2
Do While Not EOF(1)
ch = Input$(1, #1)
Print #2, ch;
Loop
Close #1, #2
End Sub
这一过程的功能是
选项
A、读入文件file1.txt的内容在窗体上显示
B、读入文件file1_bak.txt的内容在窗体上显示
C、把文件file1_bak.txt复制为file1.txt文件
D、把文件file1.txt复制为file1_bak.txt文件
答案
D
解析
Open语句兼有打开文件和建立文件两种功能。Output和Input分别指定文件顺序输出方式和顺序输入方式。Open "file1.txt" For Input As #1意思是以顺序输入方式打开已经存在的file1.txt文件; Open "file1_bak.txt" For Output As #2的意思是以顺序输出方式打开数据文件file1_bak.txt,新写入的数据将覆盖原来的记录,如果文件不存在,则建立一个文件。Input$(n, #文件号)该函数返回从指定文件中读出的n个字符的字符串(即它可以再数据文件中读取指定数目的字符),ch = Input$(1, #1)语句是从文件号为1的文件中读出1个字符,并将其赋值给ch。Print#文件号,实现的功能是把数据写入文件中,Print #2,ch是把ch输入到文件号为2的文件中。两个语句实际上就是把文件号为1的中的1个字符复制到文件2中。EOF函数用来返回测试文件的结束状态,对于顺序文件来说,如果已达到文件尾,则函数返回值为True,否则返回值为False。利用EOF函数,可以避免在文件输入时出现"输入超出文件尾"的错误。EOF(n)的含义是已到达文件尾,Not EOF(n)的含义是没有到达n所对应文件的末尾。 Do While Not EOF(1)保证循环执行,直到已到达文件号为1的文件尾。利用Do While Not EOF(1),循环执行以上Input和Print语句,则是把文件号为1的文件内容复制到文件号为2的文件中,即把文件file1.txt复制为file1_bak.txt文件,故D选项正确,C选项错误。程序中并没有窗体上显示的程序语句,故A项和B项错误。故选择D项。
转载请注明原文地址:https://jikaoti.com/ti/TMy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateYAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSu
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
现有语句:Y=IIf(x>0,xMod3,0)设x=10,则Y的值是()。
窗体上有两个水平滚动条HV、HT,还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl,并编写了以下程序:PrivateSubcommandl_Click()Callcale(HV.Value,HT.Value)End
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommandl—Click()Textl.Text=“程序设计”Text1.SetFocusEndSubPri
(1)在名称为Forml的窗体上添加一个标签,其名称为Labell,然后通过属性窗口设置窗体和标签的属性,实现如下功能:①窗体标题为“设置标签属性”;②标签的位置为:距窗体左边界500,距窗体顶边界300;③标签的标题为“等级考试”;
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
有如下通用过程:SubSa(aAsInteger,bAsInteger)b=at=a/bb=tModbEndSub在窗体上画一个Command1命令按钮,然后编写如下事件过程:Priv
随机试题
有以下程序:#include<stdio.h>main(){intsum=10,n=1;while(n<3){sum=sum—n;n++;}printf("%d,%d",n,sum);}
防民之口,甚于防川。川壅而溃,伤人必多。
A.分泌性腹泻B.渗透性腹泻C.渗出性腹泻D.动力性腹泻E.吸收不良性腹泻胃泌素瘤所致腹泻属于
有关肾区疼痛.下列哪项不正确?
“氨基糖苷类联用呋塞米导致肾、耳毒性增加”显示药源性疾病的原因是()。
根据《中国执业药师职业道德准则适用指导》,执业药师应当
关于承运人权利和义务的说法正确的是:
双亲杂交后,从母本植物上得到的种子以及由该种子长成的植株称杂种一代。()
将19分解成3个不重复数字(1至9)之和(不计顺序)的方法共有______种。
A、HewillgotoCanadaforvacation.B、Hewilljuststayathome.C、Hewilldosometemporaryjobtoearnsomemoney.D、Hewill
最新回复
(
0
)