首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将fl.txt删除。命令按钮的单击事件过程如下: Private Sub Commandl_Click() Open”c:\f1.tx
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将fl.txt删除。命令按钮的单击事件过程如下: Private Sub Commandl_Click() Open”c:\f1.tx
admin
2018-10-15
29
问题
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将fl.txt删除。命令按钮的单击事件过程如下:
Private Sub Commandl_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,strl
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号文件用于写入。当进行读取时循环条件应该为Not EOF(1)即还没有读取到文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/tTFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于单选按钮和复选框的叙述中正确的是
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAsLabel) L.Caption="1234"EndSubPrivateSubForm
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)
以下关于文件的叙述中,错误的是
对于能够获得焦点的控件,若要使其不能接收焦点,应该()。
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是()。
PrintFormat(1234.56,"###.#")语句的输出结果是()。
假定Picturel和Textl分别为图片框和文本框的名称,则下列错误的语句是()。
以下关系表达式中,其值为True的是( )。
设a=2,b=3,c=4,d=5,下列表达式的值是( )。
随机试题
下列程序的输出结果是inta=1;intf(){inta=2;returna;}voidmain(){printf("%d,%d",a,f());}()
分泌胃泌素的细胞是分泌胃蛋白酶原的细胞是
A.濡脉B.缓脉C.紧脉D.芤脉E.涩脉大失血,伤阴的脉象是
私募发行的优点为()。
中国第一个资产阶级政治团体是兴中会。()
同时打开游泳池的A、B两个进水管,加满水需l小时30分钟,且A管比B管多进水180立方米。若单独打开A管,加满水需2小时40分钟。则B管每分钟进水多少立方米?()
某国家领导人要在连续6天(分别编号为第一天,第二天……第六天)内观察6座工厂F、G、H、J、Q和R,每天只视察一座工厂,每座工厂只被视察一次。视察时间的安排必须符合下列条件:(1)视察F在第一天或第六天。(2)视察J的日子比视察Q的日子早。(3)视察
在考生文件夹下,打开文档word2.docx,按照要求完成下列操作并以该文件名(word2.docx)保存文档。【文档开始】产品名称产量(万台)合计(万台)一季度二季度三季度四季度
MigrantWorkersInthepasttwentyyears,therehasbeenanincreasingtendencyforworkerstomovefromonecountrytoanot
Weadvisedthemtotakearest,butthey______onfinishingthework.
最新回复
(
0
)