首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下: Private Sub Command l Click() Open”c:\f1.txt”For Input As#l:Open”c:\f2.txt”For Ou
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下: Private Sub Command l Click() Open”c:\f1.txt”For Input As#l:Open”c:\f2.txt”For Ou
admin
2019-01-17
46
问题
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:
Private Sub Command l Click()
Open”c:\f1.txt”For Input As#l:Open”c:\f2.txt”For Output As#2
Do While Not EOF(1)
Line Input#1.strl:Print#2.strl
Loop
Close
End Sub
以下关于上述程序的叙述中,错误的是
选项
A、功能是将f2.tXt中的内容复制到f1.txt中
B、f1.txt和f2.txt均是顺序文件
C、EOF函数可以判断是否已到文件的末尾
D、Close能够把打开的两个文件都关闭
答案
A
解析
Visual Basic程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:Open FileName For Mode As#FileNumbcr。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、input方式打开的文件进行的读写操作都是以顺序方式进行的,其中Output、Append打开的文件主要用来输出数据,与Print#、Write#等方法配合使用;以Input方式打开的文件主要用来读入数据,它与Input#、Line Input#语句配合使用。Line Input#语句从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。本题中f1.txt和12.txt分别使用Input和Output方式打开,所以都是顺序文件;EOF函数可以判断是否已到文件的末尾,一般用作循环条件;程序的功能是将f1.txt文件的内容复制到t2.txt中,最后的Close语句缺省文件号将会关闭所有的活动文件。
转载请注明原文地址:https://kaotiyun.com/show/DrFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=
对于循环队列,下列叙述中正确的是( )。
判断单选按钮是否被选中的属性为
下面能够将某个变量声明为局部变量的是
下列数据结构中,能够按照"先进后出"原则存取数据的是( )。
设有如下事件过程:PrivateSubCommand1_Click() Dima a=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5) x=0 n=UBound(a)
下列选项中属于面向对象设计方法主要特征的是( )。
在关系模型中,每一个二维表称为一个
下列说法中,错误的是
列表框控件List1中已有若干个列表项,以下能表示被选中列表项内容的表达式是()。
随机试题
用组合铣削法加工台阶时,需对试件或首件()。
逃避军事义务是指()
患者李某,女性,70岁。患者反复咳喘三十余年,近一周加重。现症见:喘咳气涌,胸部胀痛,痰多质黏色黄或夹有血色,伴胸中烦闷,身热,体温37.5℃,有汗,口渴而喜冷饮,面赤,咽干,小便赤涩,大便或秘,舌质红,舌苔薄黄或腻,脉滑数。根据该患者病情,治疗应首选
依法行政是法治国家对政府行政活动提出的基本要求,而合法行政则是依法行政的根本。下列哪些做法违反合法行政的要求?()(司考2011.2.78)
在竣工验收阶段,收集整理竣工验收资料的重点包括()。
甲、乙、丙三位合伙人成立合伙企业,约定各自按1/3的比例享受合伙企业的收益,并分摊合伙企业的债务,这一规定对本合伙企业的所有债权人均有效。()
教育主体确定,教育对象相对稳定,形成一系列的文化传播活动,有相对稳定的活动场所和设施等特点的出现意味着()。
数列:3,2,0,3,7,2,-4,3,
求积分
IntheUS.thereisadifferencebetweenpublicandprivateadoption.Publicadoptiontypicallyinvolvestakinginfosterchildr
最新回复
(
0
)