首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_CliekO Open"c:\f1.txt"For
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下: Private Sub Command1_CliekO Open"c:\f1.txt"For
admin
2019-07-30
62
问题
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:
Private Sub Command1_CliekO
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号文件用于写入。当进行读取时循环条件应该为NotEOF(1)即还没有读取到文件结尾。
转载请注明原文地址:https://kaotiyun.com/show/XeUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger第1个ForFori=lTo10
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click()DimmAsStringm=InputBox("请输入字符串")Printpic
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPriv
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是
下列关于滚动条的叙述中,错误的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4Print
编写如下程序:PrivateSubCornmandlClick()DimXAsInteger,yAsIntegerx=1:y=1Doy=x*yIfv>10ThenE
以下关于窗体的叙述中错误的是
以下关系表达式中,其值为True的是
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
随机试题
设曲线y=f(x)在点(1,f(1))处的切线平行于x轴,则该切线方程为_________.
治疗用放射性药物的描述下列哪项错误
进口货物的完税价格由海关以()为基础审查确定。
脚手架立杆基础不在同一高度上时,靠边坡上方的立杆轴线到边坡距离的最小限值是()mm。
正式沟通网络可以分为()等五种形式。
下列关于劳动争议特征的说法正确的有()。
工作簿一打开,下面叙述中错误的是()。
下列选项中,最能体现中国近代教育半封建半殖民地性质的是()。
矛盾的同一性在事物发展中的作用表现为()
TheU.S.systemofhighereducationiswidelyconsideredtheworld’sbest.Acollegeeducation【C1】______substantialbenefits—abo
最新回复
(
0
)