首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing 编写如下事件过程: Private Sub Form_Click() Dim InD Open"d:\city.txt"For Input As#
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing 编写如下事件过程: Private Sub Form_Click() Dim InD Open"d:\city.txt"For Input As#
admin
2020-01-02
31
问题
文件d:\city.txt的内容如下:
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程:
Private Sub Form_Click()
Dim InD
Open"d:\city.txt"For Input As#1
Do While NotEOF(1)
Line Input#1,InD
Loop
Close1
Print InD
End Sub
运行程序,单击窗体,输出结果是
选项
A、文件city.txt的全部内容
B、BeiJing
C、ChongQing
D、空白
答案
C
解析
Visual Basic程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:Open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。以Input方式打开的文件主要用来读入数据,它与Input#、Line Input#语句配合使用。Line Input}}语句从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。本题中依次取出每一行放到InD中,变量中只能保留最后一次取出的行。
转载请注明原文地址:https://jikaoti.com/ti/AHx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox(”请输入整数”)b=InputBox(”请输入整数”)pr
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
编写如下程序:PrivateSubCommandl_Click()Dimstr1AsString,str2AsStringstr1=InputBox(”输入一个字符串”)subfstr1,str2:Printstr
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和command1,然后编写如下程序:PrivateSubfunc(LAsLabel)L.Caption=”1234”EndSubPrivateSubFo
设子程序过程定义的首部为:PublicSubS(XAsInteger,YAsSingle)则以下正确的调用形式为
以下自定义数据类型的语句中,正确的是
编写如下程序:PrivateSubCommandl_Click()Dima(3,3)AsInteger,sAsIntegerFori=1To3Fori=1To3
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是()。
以下说法中正确的是()。
以下说法中正确的是()。
随机试题
在深度为5的满二叉树中,叶子结点的个数为()。
检测尿中β2-微球蛋白是监测
甲居民企业2014年度境内所得应纳税所得额为300万元,来源于境外A国的税前所得为100万元,境外实缴税款30万元。已知甲企业全年已经预缴税款60万元,根据企业所得税法律制度的规定,下列说法正确的是()。
企业提供的会计信息应有助于财务会计报告使用者对企业过去、现在或者未来的情况作出评价或者预测,这体现了会计信息质量要求中的()要求。
下列关于物质跨膜运输的叙述,错误的是()。
教师上一堂课,语言表达能力和情绪感染能力等一系列能力的结合,在心理学上称为()。
在医学上,根据引起感冒的病原体不同,可将感冒分为病毒性感冒和细菌性感冒。如果没有细菌感染的话,通过人体自身产生的免疫力,感冒一周左右就可以自愈。所以,大多数感冒无需服药打针治疗。为使以上结论成立,以下必须为真的一项是:
在划分部门法时要考虑到法律所调整的社会关系的种类,并同时注意社会关系法律调整的机制。而对划分部门法的标准的论述,下述错误的是()。
假设表s中有10条记录,其中字段b小于20的记录有3条,大于等于20、并且小于等于30的记录有3条,大于30的记录有4条。执行下面的程序后,屏幕显示的结果是SETDELETEONDELETEFROMsWHEREbBETWEEN20AN
OnaLosAngelesstreetcornerin2000,Iwasthe"insideman"inaclassiccongamecalledthepigeondrop.AmagiciannamedDa
最新回复
(
0
)