首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下过程: 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
54
问题
有如下过程:
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://kaotiyun.com/show/oKGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是()。
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
文本框Textl的KeyDown事件过程如下:PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub其中参数KeyCode的值表示的是发生此事件时(
(1)在名称为Forml的窗体上添加一个二级下拉菜单(菜单项见下表),程序运行时的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sitl.frm。(2)在名称为Forml的窗体上添加两个文本
窗体上有两个水平滚动条HV、HT,还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl,并编写了以下程序:PrivateSubcommandl_Click()Callcale(HV.Value,HT.Value)End
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommandl—Click()Textl.Text=“程序设计”Text1.SetFocusEndSubPri
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,再编写如下程序:DimSSAsStringPrivateSubTextl_KeyPress(KeyAsciiAsInteger)
有如下通用过程:SubSa(aAsInteger,bAsInteger)b=at=a/bb=tModbEndSub在窗体上画一个Command1命令按钮,然后编写如下事件过程:Priv
随机试题
简述股权取得日购买法和权益结合法的区别。
患者,男,60岁。糖尿病病史10年,检查:双下肢浮肿,尿蛋白(+++),空腹血糖8.0mmol/L,餐后2小时血糖11.13mmol/L,血压160/100mmHg。其诊断是
化生“天癸”的物质基础是
【案情】孙某与钱某合伙经营一家五金店,后因经营理念不合,孙某唆使赵龙、赵虎兄弟寻衅将钱某打伤,钱某花费医疗费2万元,营养费3000元,交通费2000元。钱某委托李律师向甲县法院起诉赵家兄弟,要求其赔偿经济损失2.5万元,精神损失5000元,并提供
小砌块砌体施工时对砂浆饱满度的要求严于砖砌体的要求。()
【背景资料】某新建办公楼工程,建筑面积48000m2,地下2层,地上6层,中庭高度为9m,钢筋混凝土框架结构。经公开招标投标,总承包单位以31922.13万元中标,其中暂定金额1000万元。双方依据《建设工程合同(示范文本)》(GF一
规范化服务的标准是()。
2015年1~4季度该市人均消费支出八大类中,同比增长的大类占人均消费总支出的比重比同比下降的大类()个百分点。
Youaregoingtoreadalistofheadingsandatextaboutwhatparentsaresupposedtodotoguidetheirchildrenintoadulthood
(46)Ifyouconsultcomparativeglobaleconomicandsocialstatistics,itisnotdifficulttopaintableakpictureofArabfailu
最新回复
(
0
)