首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件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
2019-01-17
51
问题
文件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
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/bgFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10The
设有如下事件过程:PrivateSubCommand1_Click() Dima a=Array(12,3,8,5,10,3,5,9,2,4) Fork=1To9 Printfun(a(k-1),a(
现有如下程序:PrivateSubCommand1_Click() s=0 Fori=1To5 s=s+f(5+i) Next PrintsEndSubPublicFunctionf(xAsInteger
若在窗体模块的声明部分声明了如下自定义类型和数组:PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是( )。
为了清除列表框中指定的项目,应使用的方法是( )。
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
把数学表达式2y—b表示为正确的VB表达似乎应该是
随机试题
在Excel2003工作表的单元格E5中有公式“=E3+$E$2”,删除第D列后,则D5单元格中的公式为()。
[*][*]
T细胞活化的第一信号来源于
A.双肾B超B.双肾CTC.静脉肾盂造影D.肾动脉造影E.肾活检慢性肾盂肾炎主要辅助检查项目应是
下列各项中,不能成为我国经济法律关系客体的是()。
简述影响中学生品德发展的因素。
患儿,男性,4岁。6天前受凉后突起发热,在家服用“感冒药”后病情无好转。半天前出现寒战,体温高达40℃,伴头痛、恶心、频繁喷射性呕吐。呕吐物是胃内容物,于11月30日急来院就诊。既往体健,否认肝炎、结核病史,无家族遗传病史。学校里有类似病例发生。查体:T
在下列各句中的横线处依次填入词语,最恰当的一组是()①这里曾一度______泥石流,致使公路堵塞,桥梁冲垮,交通瘫痪。②车尔尼雪夫斯基对托尔斯泰______表现人物心理变化的艺术特色极为称道。
下列不属于非平凡函数依赖的是______。
[A]camera[B]television[C]watch[D]umbrella[E]breakfast[F]dictionary[G]newspaperPeoplewearitto
最新回复
(
0
)