首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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-07-22
27
问题
窗体上有一个名称为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/VDHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
设有如下一段程序:PrivateSubCommand1-Click()StaticaAsVarianta=Array("one","two","three","four","five")Printa(3)EndSub
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
为了用键盘打开菜单和执行菜单命令,第一步应按的键是
以下关于通用对话框的叙述中,错误的是
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st:"":n=0Fork=1ToLen(ch)C=Mid(ch,k,1)Ifc""ThenSt=st&cEl
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+c
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是()。
把一个名称为mnuStyle的菜单项设置为不可用的语句是
随机试题
Manydifficulties______asaresultofthechangeovertoanewtypeoffuel.
何谓缔约过失责任?其构成要件如何?
传播阿米巴痢疾是传播丝虫病是
男性,30岁,2天前上呼吸道感染,病情迅速加重,发热(39.8℃),伴寒战、胸痛、咳嗽、咳铁锈色痰。X线检查见左肺下叶大片致密阴影。不符合该患者疾病的描述是
下列不符合肺炎克雷伯杆菌肺炎的临床特点的是
下列有关酶的叙述,正确的是
关于个人投资者,下列说法错误的是()。
从"订单"表中删除签订日期为2010年1月1日(含)之前的订单记录,正确的SQL语句是( )。
WiltChamberlainisretirednow,butheusedtobeafamousbasketballplayer.Hehasset65differentrecordsandevenholdsma
Physicalfitnessistheresultofmanyfactors--goodmedicalcare,propernutrition,adequaterestandrelaxation,andsensible
最新回复
(
0
)