首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub.Commandl_Click() Open"c:\f1.txt"F
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub.Commandl_Click() Open"c:\f1.txt"F
admin
2020-04-18
31
问题
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub.Commandl_Click()
Open"c:\f1.txt"For Input As#1
Open"c:\f2.txt"For Output As#2
Do While Not EOF(2)
Line Input#1,str1
Print#2,str1
Loop
Close Kill*c:\f1.txt"
End Sub
该程序运行时发生错误,应该进行的修改是
选项
A、打开f1.txt应该使用Output方式,打开f2.txt应该使用Input方式
B、Not EOF(2)应该改为Not EOF(1)
C、Line Input应改为Get
D、Close语句改为Close All
答案
B
解析
打开文件的基本格式为:open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种。本题中打开了两个文件,其中l号文件用于读取,2号文件用于写入。当进行读取时循环条件应该为Not EOF(11即还没有读取到文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/pfTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面事件过程:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSi
以下关于函数过程的叙述中,正确的是( )。
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。PrivateSubCheck
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
表达式Sin(0)+Abs(-1)+Int(Rnd(0))+Len(Str(3.14))的值是
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是( )。
以下关于过程及过程参数的描述中,错误的是( )。
在关系数据库中,用来表示实体间联系的是
算法的有穷性是指( )。
VB中,若没有显式声明变量的数据类型,则默认的类型是
随机试题
饮食卫生“五四制”要求环境卫生采取“四定”办法,但不包括________。
常温下能用铝制容器盛浓硝酸是因为常温下,浓硝酸根本不与铝反应。()
中年妇女妇科病治疗宜注重
下列关于行政裁决的表述哪些是不正确的()。
A公司为上市公司,所得税采用资产负债表债务法核算,所得税税率为25%,按照净利润的10%计提盈余公积,年度所得税汇算清缴于次年3月20日完成,年度财务报表于次年的3月31日批准对外报出。2017年发生的有关事项如下:(1)2017年11月5日,A公司涉及
某企业进行人力资源需求与供给预测。经过调查研究与分析,确认本企业的销售额(万元)和所需销售人员数量(人)成一元线性正相关关系,并根据过去10年的统计资料建立了一元线性回归预测模型y=a—bx,其中,x代表销售额,y代表销售人数,回归系数a=52,b=0.0
一人有限责任公司的股东不能证明公司财产独立于股东自己财产的,应当对公司债务承担连带责任。()(2014年)
某企业为增值税小规模纳税企业。该企业购入A材料600公斤,每公斤含税单价为75元,发生运杂费3000元,运输途中发生合理损耗10公斤,人库前发生挑选整理费用300元。该批A材料的入账价值为()元。
流通债券价值在两个付息日之间呈周期性变动。对于折价发行债券来说,发行后价值逐渐升高,在付息日由于割息而价值下降,然后又逐渐上升。总的趋势是波动上升,越临近付息日,利息的现值越大,但是债券的价值不可能超过面值。()
2019年是澳门回归20周年。党的十九大报告指出,保持香港、澳门长期繁荣稳定,实现祖国完全统一,是实现中华民族伟大复兴的必然要求。为此,要牢牢掌握宪法和基本法赋予的中央对香港、澳门的()。
最新回复
(
0
)