首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing. 编写如下事件过程: Private Sub Form Click() Dim InD Open“d:\city.txt”For InputAs#
文件d:\city.txt的内容如下: BeiJing TianJin ShangHai ChongQing. 编写如下事件过程: Private Sub Form Click() Dim InD Open“d:\city.txt”For InputAs#
admin
2015-12-09
23
问题
文件d:\city.txt的内容如下:
BeiJing
TianJin
ShangHai
ChongQing.
编写如下事件过程:
Private Sub Form Click()
Dim InD
Open“d:\city.txt”For InputAs#1
Do While Not EOF(1)
Line Input #1,InD
Loop
Close 1.
PrintIn#D
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#、Lme Input#语句配合使用。Line Input#语句从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。本题中依次取出每一行放到InD中,变量中只能保留最后一次取出的行。
转载请注明原文地址:https://kaotiyun.com/show/HfLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用Static关键字定义过程是指______。
在VisualBasic中最基本的对象是______,它是应用程序的基石,也是其他控件的容器。
有3个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
下面程序的功能是利用随机函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如下图
有如下程序,运行后输出的是()。OptionBase1PrivateSubCommandl_click()Dimaj(1To10)Forj=6To10aj(j)=j*2Nextj
为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是()。
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是()。
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()Dima
随机试题
患者,男,67岁。在骨折复位中突发胸闷、心悸气短。心电图提示三度房室传导阻滞。应给予的紧急处理是
女,62岁。曾4次足月分娩,绝经12年。近1年来下腹坠胀,有块状物脱出于阴道口,休息后不能回纳。妇科检查:宫颈口脱出于阴道口外1cm处,子宫正常大小。该患者首选的治疗方法是
目前,我国证券清算、交收业务主要遵循的原则有( )。
根据变压器的空载试验可以求得()。
十部乐
[2013年]设X1,X2,X3是随机变量,且X1~N(0,1),X2~N(0,22),X3~N(5,32),pi=P{-2≤Xi≤2)(i=1,2,3),则().
A、 B、 C、 D、 B
程序通过定义学生结构体变量,存储了学生的学号、姓名和3门课的成绩。函数fun的功能是对形参b所指结构体变量中的数据进行修改,最后在主函数中输出修改后的数据。例如:b所指变量t中的学号、姓名、和三门课的成绩依次是:10002、"ZhangQi"、9
在带链栈中,经过一系列正常的操作后,如果top=bosom,则栈中的元素个数为
Mostparentsthesedayshavetorelyontheirforceofpersonalityandwhateverloveandrespecttheycaninspireto(31)anyin
最新回复
(
0
)