首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
36
问题
窗体上有一个名称为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://jikaoti.com/ti/KqJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为______。
为了使一个窗体从屏幕消失但仍在内存中,所使用的方法或语句为______。
文本框控件最多能处理______个字节。
在程序运行期间,如果拖动滚动条上的滑快,则触发的滚动条事件是______。
要使某菜单能够通过按住键盘上的<Alt>键及<K>键打开,应()。
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer
若有以下程序,当程序运行后,单击命令按钮,则输出的结果为()。PrivateSubCommand1_Click()Dima%(1To4),b%(3To6),i%,s1#,s2#Fori=1
面向对象的设计方法与传统的面向过程的方法有本质不同,它的基本原理是______。
己知a=5,b=8,c=12,下列表达式的值为True的是()。
表达式Right("Beijing",4)的值是
随机试题
存储器由成千上万个存储单元构成,每个存储单元都有唯一的编号,称为存储单元的______________。
女性,32岁。发热、多关节疼痛、双侧胸腔积液、尿蛋白(+)半年。实验室检查发现ANA(+),抗SSA(+)。抗Sm(+)。首选治疗的药物是
根据《中华人民共和国招标投标法》,开标工作应由()主持。
下列关于旅游法律责任主体的说法中,正确的有()。
企业收到某公司的转账支票一张23万元,偿还前欠货款,则会计分录应为借记其他货币资金23万元,贷记应收账款23万元。()
中国:台湾
在下列历史事件中,导致王朝更替的是()。
Childrenunder15mustbe______byaparentorguardian.
Tomwastheonlyoneofthestudentswho______namedOutstandingStudent.
A、Whataturbiditycurrentis.B、Thecausesofunderwaterearthquakes.C、Howwindscanaffectsomeoceancurrents.D、Whytheboo
最新回复
(
0
)