首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2020-02-27
77
问题
窗体上有一个名称为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://kaotiyun.com/show/0WTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下不属于VisualBasic数据文件的是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为"30"、"50";还有下面程序代码:PrivateSubOption1_Cli
下列数组定义中错误的是( )。
在下面语句或函数中,不能描述选择结构的是
将数据项"Student"添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
表达式Int(-15.8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的运算结果是()。
在面向对象方法中,不属于“对象”基本特点的是()。
下面属于良好程序设计风格的是()。
InputBox函数返回值的类型为()。
随机试题
简述决策的方法有哪些?
关于定金合同,正确的是()
紧张综合征主要见于
中心静脉压低、血压低( )
按照原国家经贸委发布的《特种作业人员安全技术培训考核管理办法》的界定,下列属于特种作业人员的是()。
甲有限责任公司于2008年5月成立,2011年12月31日经审计的净资产值为6000万元,2012年1月,该公司准备按照净资产100%折股变更为股份有限公司后首次公开发行股票并上市,关于该公司的下列说法中,正确的有()。
通过保险代理人与投保人之间签订的保险合同所产生的权利义务,其后果承担人为()。
在全国人民代表大会闭会期间,有权批准对全国人民代表大会代表进行逮捕或者刑事审判的机关是全国人民代表大会常务委员会()
当今世界,随着网络在人们生活中的普及诞生了一批新新人类,他们在网上进行交流、贸易,甚至生存,但是一些社会问题也随着这一新事物的发展日益暴露出来。如:网上谩骂,网络乱伦,计算机犯罪等不道德的行为。对于这些行为现今还未形成一套完善的法律法规来进行约束、控制,而
A、Thewomanwenttothemeeting,butthemandidn’t.B、Themanwenttothemeeting,butthewomandidn’t.C、Neitherofthespeak
最新回复
(
0
)