首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件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
38
问题
文件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全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1y=1Doy=x*yIfy>10T
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>
设有如下程序:PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2n=n-5Printm;nEndSubPrivateSubForm_Cli
以下叙述中错误的是( )。
下列不能接收焦点的控件是
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
下面不属于需求分析阶段任务的是( )。
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程
在关系数据库中,用来表示实体间联系的是
随机试题
不是宫颈癌的放射治疗适应证的是
A.乳食内积B.盘肠吊痛C.胸胁疼痛D.痰饮内伏E.久病体虚
申报日期栏应填______。起运国(地区)栏应填______。
【真题(初级)】对有因果关系的两类或多类经济数据之间的关系进行分析,推导出相应的因果模型或回归方程的绩效审计分析方法是()。
建筑物在建造过程中及竣工后发生的基底标离下降的现象,称为基础沉降。引起地基沉降的根本原因是()。
无风险收益率作为把资金投资于某没有任何风险的投资对象而能得到的收益率,在现实生活中是存在的。()
我国《商标法》规定,每次续展注册的商标,有效期为()。
Themanwasdeportedforhis______acts.
Parentswhosmokeoftenopenawindoworturnonafantocleartheairfortheirchildren,butexpertsnowhaveidentifiedar
WhenIfirstentereduniversity,myaunt,whoisanEnglishprofessor,gavemeanewEnglishdictionary.Iwas【C1】______toseet
最新回复
(
0
)