首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件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
36
问题
文件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://kaotiyun.com/show/89Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st=””:n=0Fork=1ToLen(ch)c=Mid(ch,k,1)
有下面程序代码:PrivateSubCommandl_Click()DimaAsStringa=”COMPUTER”n=search(a,”T”):PrintIIf(n=0,”未找至0”,n)En
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommand1_Click()DimXAsIntegerx=Val(InputBox(”请输入一个整数”))fun(x)EndSubP
下面不能在信息框中输出“VB”的是
有数据定义语句:DimX,YAsInteger以上语句表明
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommandl_Click()’循环1Fori=1To3
假定有以下程序段Fori=lTo3Forj=5To1Step-1Printi*jNextjNext1则语句Printi*j的执行次数是
以下说法中正确的是()。
下列说法中正确的是()。
随机试题
家庭干预中起桥梁作用的是【】
(x3-x+2)=________.
施工招标中资格审查的内容包括哪些方面,为保证资格审查的真实性和有效性,你认为应采取什么方法避免审查材料中的虚假现象。
某固定资产原值为90000,预计净残值为10000元,使用年限为4年,若按年数总和法计算折旧,则其第3年的折旧额为()元。
证券公司的主要业务包括()。Ⅰ.证券承销与保荐业务Ⅱ.证券自营业务Ⅲ.证券资产管理业务Ⅳ.证券监管业务
资产证券化是一种()的管理手段。
五四运动中,《青年杂志》的创办人是()。
抗生素的发明和使用,使病菌一度不再是人类的致命威胁。但是,在人类使用抗生素治疗疾病的同时,病菌的耐药性也在增加,由于滥用抗生素,出现了目前难以控制的“超级病菌”,上述事实表明()。①量变达到一定程度会引起质变②发挥主观能动性受客
A、Atabusstation.B、Atanairport.C、Atacafeteriaintherailwaystation.D、Atarailwaystation.C对话中提到男士催女士快点喝咖啡,否则他们就误点了,
Anewstudyfindsthatevenmildstresscanaffectyourabilitytocontrolyouremotions.AteamofneuroscientistsatNewYork
最新回复
(
0
)