首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件 f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command l_Click() O
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件 f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command l_Click() O
admin
2020-04-18
31
问题
窗体上有一个名称为Commandl的命令按钮。要求编写程序,把文件f1.txt的内容写到文件 f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub Command l_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 FileName For Mode As≠≠FileNumber。打开方式主要有Output、Append、Input、Random等几种。本题中打开了两个文件,其中1号文件用于读取,2号文件用于写入。当进行读取时循环条件应该为Not EOF(1)即还没有读取到文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/V4Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下合法的VB变量名是
窗体上有1个名称为Textl的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timerl的事件过程如下:PrivateSubTimer1_Timer()Static
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
以下关于文件的叙述中,错误的是
下面程序运行时,若输入395,则输出结果是PrivateSubCommandl_Click()Dimx%x=InputBox(”请输入一个3位整数”)PrintxMod10,x\100,(xMod
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerRandomize
命令按钮不支持的事件为
下列列说法中,错误的是()。
若在窗体模块的声明部分声明了如下自定义类型和数组PrivmeTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStudent(5)AsTem
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
缓刑的成立条件是()。
配电装置的安装前检查,不要求的是()。
某安装公司分包一商务楼(一至五层为商场,六至三十层为办公楼)的变配电工程,工程的主要设备(三相干式电力变压器、手车式开关柜和抽屉式配电柜)由业主采购,设备已运抵施工现场,其他设备、材料由安装公司采购。合同工期60天,并约定提前1天,奖励5万元人民币,延迟1
对会计核算软件自动产生的机内记账凭证经审核登账后,可以进行修改。()
()是指以当事人的意志为转移,能够引起劳动法律关系产生、变更和消灭,具有一定法律后果的活动。
一般应标识签发负责人姓名的文件是()。
某学生写的文献综述包括“(1)研究的缘起;(2)研究的历史发展过程;(3)研究现状”三个部分。他的文献综述缺了
设当x→0时,(1-cosx)ln(1+x2)是比xsinxn高阶的无穷小,而xsinxn是比ex2-1高阶的无穷小,则正整数n等于
A、Toregisterforawinter-vacationcourse.B、Tolookforanewplacetostay.C、Tocomplainofthewarden’scarelessness.D、To
Peoplewhohaveexperiencedidentitytheftspendmonthstryingtorepairwhatothershavedamaged,andinthemeantimetheycann
最新回复
(
0
)