首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件n.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open"c:\f1.txt"For
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件n.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open"c:\f1.txt"For
admin
2016-06-23
48
问题
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件n.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Open"c:\f1.txt"For Input As #1
Open"c:\t2.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 EPOF (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://kaotiyun.com/show/vcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有人编写了如下程序:PrivateSubForm_Click()DimsAsInteger,xAsIntegers=0x=0DoWhiles=10000x=x+1
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
设有如下变量声明语句:Dima,bAsBoolean则下面叙述中正确的是
某系统总体结构图如下图所示:该系统总体结构图的深度是
下列叙述中正确的是
Defsnga定义的变量a是______类型的变量。
算法复杂度主要包括时间复杂度和______复杂度。
设a=5,b=4,c=3,d=2,则表达式3>2术bOra=cAndb<>cOrc>d的值是
已知变量X、Y为整型,且x=4,y=12,S为字符串型,且s=a,1blok为标签控件,下列赋值语句合法的是()。
设Y是整形变量,能判断Y为奇数的表达式是
随机试题
在人的整个生命周期中,被动发展阶段的年龄为【】
A.传导散热B.辐射散热C.对流散热D.蒸发散热环境温度25℃时,机体的主要散热方式是
下列哪种疾病不表现为左心房增大
牙尖交错时,上下牙的对位关系主要的指标是
上市公司增发股票,对现任董事、监事和高级管理人员的要求有()。
高尔夫球运动刚刚兴起时,有个奇怪现象:几乎所有的高尔夫球手都喜欢用旧球,特别是有划痕的球。原来,有划痕的球比光滑的新球有着更优秀的飞行能力。于是,根据空气动力学原理,科学家设计出了表面有凹点的高尔夫球。这些凹点,让高尔夫球的平稳性和距离性比光滑的球更有优势
将函数展开成(x-1)的幂级数,并证明:
A、Atradingcompanyandatrustcompany.B、Atradingcompany.C、Atrustcompany.D、Avisitingdelegation.A题目询问女士过去在哪里工作。在对话开头,女
Borrowingtostartabusinessisnoteasy.Gettingabankloan,particularlyforanewsmallbusiness,islikegoingthroughthe
Manmadefibershaveonlybeenusedtomake【B1】______foralittleoveracentury,buttheiruseisquite【B2】______nowadays.Rayon
最新回复
(
0
)