首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
文件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
40
问题
文件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全国计算机二级
相关试题推荐
在VisualBasic中最基本的对象是______,它是应用程序的基石,也是其他控件的容器。
在窗体上面两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如下图所示。请填
窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Labe11、Caption属性为"Sum"的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后,将把1~100之间能够被7整除的数添加到列表框中。如果单击
下面程序的功能是利用随机函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如下图
当对命令按钮的Picture属性装入bmp图形文件后,这项按钮上并没有显示所需的图形,原因是没有对______属性设置为1(Graphical)。
假定有以下两个过程:PrivateSubPPP(aAsSingle,bAsSingle)a=a+bPrinta,bb=a+bPrinta,bEndSubPrivateSubForm_
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是()。
有如下程序:PrivateSubForm_Click()DimiAsInteger,SumAsIntegerSum=0Fori=2To10IfiMod2<>0AndiMod3=0ThenSum=Sum+iE
随机试题
论述专利取得中的先申请原则。
肥大细胞主要参与
必须进行药品集中采购的药品是
A、羌活B、前胡C、白芷D、南沙参E、北沙参体轻,质松泡,上部多有深陷横纹,呈断续的环纹的药材为
企业可以通过股票投资实现对其他企业的控股或参股,也可以将暂时闲置的资金通过自营或委托专业机构进行证券投资以获取收益。( )
按提供服务的种类划分,第三方物流企业分为()。
世界七大古迹之一的亚历山大灯塔遗迹位于埃及的()。
下列生活常识说法正确的有:
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
SpeakerA:Whatseemstobetheproblemwiththeblouse,miss?SpeakerB:______
最新回复
(
0
)