首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件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
2015-11-24
49
问题
文件d:\city.txt的内容如下:
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程:
Private Sub Form Click()
Dim InD
Open“d:\city.txt”For Input As#1
Do While Not EOF(1)
Line Input#1.InD
Loop
Close 1
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#、LineInput撑语句配合使用。Line Input#语句从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。本题中依次取出每一行放到InD中
转载请注明原文地址:https://www.kaotiyun.com/show/bRLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,
鼠标移动经过控件时,将触发控件的______事件。
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1
下列程序的运行结果是()。PrivateFunctionmyfun(m,n)DoWhilem>nDoWhilem>n:m=m-n:LoopDoWhilen>m:n=n-m:LoopLoopmyfun=mEndFun
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1T
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文件Person.txt中
随机试题
人民警察使用警械和武器,应当以制止违法犯罪行为,尽量减少人员伤亡、财产损失为原则。
城市公共安全管理的首要任务是【】
A、3~5天1次B、每天1次C、隔1~2天1次D、每天1~2次E、2~3天1次感染伤口换药应()
构造柱浇灌混凝土前,必须将砌体留槎部位和模板浇水湿润,将模板内的落地灰、砖渣和其他杂物清理干净,并在结合面处注入适量与构造柱混凝土相同的去石水泥砂浆。振捣时,应避免触碰墙体,严禁通过墙体传震。()
初始评审过程主要包括危害辨识、风险评价和()的策划,法律法规及其他要求两项工作。
关于量本利图,下列说法正确的是()。
商标不得使用同“红十字”、“红新月”的标志、名称相同或者近似的文字和图形。()
(1)市民自发看护鸽子(2)对不文明行为进行“曝光”(3)有人偷捕鸽子(4)放养一批广场鸽子(5)对城市放养鸽子的利弊作了研究
下列______不是浏览软件。
ItwasabeautifulsummerdayandIwastakingawalkinthedowntownareaofMadrid.WhenIturnedastreet【C1】______Iheardth
最新回复
(
0
)