首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing 编写如下事件过程: Pfivate Sub Form Click() Dim InD Open”d:\
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing 编写如下事件过程: Pfivate Sub Form Click() Dim InD Open”d:\
admin
2019-03-08
23
问题
文件d:\city.txt的内容如下:
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程:
Pfivate Sub Form Click()
Dim InD
Open”d:\citv.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#、Line Input#语句配合使用。Line Input#语句从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。本题中依次取出每一行放到InD中,变量中只能保留最后一次取出的行。
转载请注明原文地址:https://kaotiyun.com/show/x4Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了保存数据,需打开顺序文件"E:\UserData.txt",以下正确的命令是
在窗体上画一个水平滚动条,其属性值满足Min
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocusEndSubPrivateSubForm_Click()
在VisualBasic中,所有标准控件都具有的属性是( )。
下列叙述中正确的是
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:324376582812985731425364758
为了在窗体上画一个文件列表框,应先在工具箱窗口中选中的图标是
设a=2,b=3,c=4,d=5,表达式Nota
数据字典(DD)所定义的对象都包含于
窗体上有1个名称为List1、含有3个项目的列表框,1个名称为Text1的文本框,以及1个Interval属性值为1000的计时器控件Timer1。某人编制了以下程序,希望程序运行时,每隔1秒,Listl中的3个项目能够依次在Text1中循环显示。
随机试题
合成的高分子膜材多数可降解或溶解、但是成膜脱膜性能较差
糖皮质激素治疗中毒性感染必须与足量、有效的抗生素合用是因为糖皮质激素会引起
牙齿萌出中哪项不正确
A.直接盖髓术B.间接盖髓术C.牙髓摘除术D.活髓切断术E.根管治疗术患儿,女,8岁。21冠折露髓1小时,应选择
A.先煎B.后下C.包煎D.另煎E.烊化
甲期货公司与客户乙签订了一份期货经纪合同。某日,乙向甲下达了一份交易指令,该交易指令数量和买卖方向明确,但没有成交价格,则甲()。
有关证券从业监督管理的规定,说法错误的有()。Ⅰ.取得执业证书的人员。连续2年不在机构从业的,由证券业协会注销其执业证书Ⅱ.证券业从业人员与原应聘单位解除劳动合同的,应当在30日内向协会报告,由证券业协会变更该人员执业注册登记
学习“工作总量=工作效率×工作时间”这是()。
某书店老板去图书批发市场购买某种图书,第一次进书用100元,按该书定价2.8元出售,很快售完。第二次进书时,每本的进价比第一次增加0.5元,用去150元,所购数量比第一次多10本。这批书按定价售出时出现滞销,便以定价的5折售完剩余图书。那么他第二次售书可能
ForthousandsofCanadians,badserviceisneithermake-believenoramusing.Itisanaggravatingandworseningreal-lifephenom
最新回复
(
0
)