首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
57
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
关于MDI窗体下列说法正确的是()。
下面变量定义中错误的是
设有如下一段程序:PrivateSubCommand1_Click() StaticaAsVariant a=Array("one","two","three","four","five") Printa(3)EndS
下面关于菜单的叙述中正确的是
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。Functionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBooleanIfa<2Then
下面控件中,没有Caption属性的是( )。
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个名为Optionl的控件数组,程序运行后,如果单击某个单选按钮,则文本框中的字体根据所选择的单选按钮切换,如图1所示。请选择适合空白处的语句()。Privat
能够容纳其他控件的控件是容器控件,框架与图片框都是容器控件。下面的叙述中正确的是()。
如图5所示,在列表框Listl中已经有若干人的简单信息,运行时在Textl文本框(即”查找对象”右边的文本框)中输入一个姓或姓名,单击”查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
随机试题
行政强制执行的方式有()
我国现行国籍法在原始旧籍的赋予上,采取_____________。
血竭属于哪类树脂
重型胎盘早期剥离的并发症不包括
下面防护属于沿河河堤河岸冲刷的间接防护的是()。
自制原始凭证是单位会计人员自行填制的原始凭证。()
在国际航空货物运输中,托运人在承运人的航线上通过固定包板(舱)的方式运输时,托运人无论向承运人是否交运货物,都必须支付协议上规定的运费。()
下列关于风险预警方法的说法中,正确的有()
下列不属于债券市场功能的是()。
Thebesttitleforthisselectionis
最新回复
(
0
)