首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open"c:\f1.txt"For
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open"c:\f1.txt"For
admin
2016-12-13
86
问题
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Open"c:\f1.txt"For Input As#1
Open"c:\f2.txt"For Output As#2
Do While NotEOF(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等几种。本题中打开了两个文件,其中1号文件用于读取,2号文件用于写入。当进行读取时循环条件应该为NotEOFf(1)g0还没有读取到文件结尾。
转载请注明原文地址:https://www.kaotiyun.com/show/q6Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对如下二叉树进行后序遍历的结果为()。
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准是模块的()。
没有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
下列程序的执行结果为()。PrivateSubCommandlClick()DimXAsInteger,YAsIntegerx=12:y=20CallValue(x,y)Pri
对长度为n的线性表进行顺序查找,在最坏情况下需要比较的次数为()。
没有数组定义语句:Dima(5)AsInteger,Listl为列表框控件。下列给数组元素赋值的语句错误的是()。
在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是()。
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:PrivateSubCommandlClick()Dima,b(2,3)AsIntegera=Array(3,7,5,11,31,43,17,62,9,23,
窗体上有一个名称为Picturel的图片框控件,一个名称为Timerl的计时器控件,其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下:PrivateSubTimerlTimer()Static
以下叙述中错误的是()。
随机试题
实现会计电算化的作用是()。
会计电算化方式下处理流程与手工方式没有区别。()
刘先生和刘女士结婚后投资100万元与朋友成立一家合伙企业,他占有50%的合伙份额,2009年6月二人因感情不和起诉离婚,离婚时合伙企业资产约500万元,则刘女士可以分得()万元的合伙企业资产。[2011年11月真题]
下列说法正确的是()。
请设计一节课的教案,达到以下目的:1.学生通过对例文的学习能够写作thank-you:letter;2.培养学生运用英语的能力。
自然存在与社会存在区分和统一的基础是()
如果你是网站的设计人员,请为此网站配置一个开发环境,并说明理由。请根据下面所列的情况,填写对session对象的几种处理情况。用户提交文件且已提交文件为空时(1)用户提交的文件非空,文件列表中没有当前需要审批的文件(2)
______也被称为“内部威胁”,授权用户将其权限用于其他未授权的目的。
下列数组定义中错误的是
Sinceyouhavealreadycome,you______stayhereforacoupleofdays.
最新回复
(
0
)