首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:\f1.tx
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:\f1.tx
admin
2015-08-28
44
问题
窗体上有一个名称为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 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打开文件时,可以用三种模式,即OutPut:打开一个文件,将对该文件进行写操作;Input:打开一个文件,将对该文件进行读操作;Append:打开一个文件,将在该文件末尾追加记录。
Do While循环应该判断1#文件的结尾,即Do While Not EOF(1),不是结尾的话把内容写到2#文件中。
Line Input语句为从已打开的顺序文件中读出一行并将它分配给 String变量。
Close语句后面有文件号,就关闭这个文件,否则就关闭所有打开的文件。此题中应该关闭所有的文件。选B)。
转载请注明原文地址:https://www.kaotiyun.com/show/GELp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。
为了选择多个控件,可以按住______键,然后单击每个控件。
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在以下横线处合适的语句是()。PrivateSubForm_Cl
假设在窗体Form1画一个通用对话框控件CommonDialogl,要建立“打开文件”对话框,为了使得该对话框的标题显示为“打开文件”,那么可以实现该功能的语句是______。
要使Form1的标题栏显示“雀巢咖啡”,可在执行时使用语句______。
表达式"12345"<>"12345"&"ABC"的值是______。
设有语句:x=InputBox("输入数值","0","示例")程序运行后,如果从键盘上输人数值10并按回车键,则下列叙述中正确的是______。
在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
下列程序的功能是:调用字体对话框来设置文本框中的字体,单击C。mmand1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则将发生哪些变化()。PrivateSubCommand1_Click()Com
语句DimArr(-3To5)AsInteger定义的数组的元素个数是()。
随机试题
小生3周,食欲旺盛,吮奶急,但几乎每次喂奶后立即或不久即吐,呈喷射状。X线钡剂检查,见胃窦与幽门管近端连接处呈喙状突出阴影称鸟喙征。超声检查如图,最可能的诊断是
放射技术人员将管理控制图通常用于
患者,女,23岁,已婚。孕期突然小便频数而急,艰涩不利,灼热刺痛,口干不欲饮,舌红苔黄腻,脉滑数。治疗应首选
客户服务是基金营销的重要组成部分,下列不属于客户服务的是()。
下列选项中符合《中华人民共和国劳动合同法》有关规定的是()。
简述股票筹资的优缺点。
在VisualFoxPro中,下列关于索引的描述,正确的是( )。
无线移动网络最突出的优点是()。
NoEnglishmanbelievesinworkingfrombooklearning.Hesuspectseverythingnew,anddislikesit,unlesshecanbecompelledb
JobAdvertisementOurcompanyisTianheAutomobileCompanyandweareseekingforamature,competentsecretarywhosemai
最新回复
(
0
)