首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command 1_Click() Dim rec As animal Open"c:\vbTest.dat"For Random As#1 Len=Len(r
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command 1_Click() Dim rec As animal Open"c:\vbTest.dat"For Random As#1 Len=Len(r
admin
2015-05-30
72
问题
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:
Private Sub Command 1_Click()
Dim rec As animal
Open"c:\vbTest.dat"For Random As#1 Len=Len(rec)
rec.animalName="cat"
rec.aColor="White"
Put#1,,rec
Close#1
End Sub
记录类型定义如下:
Private Type animal
animalName As String*20
aColor As String*10
End Type
下列叙述中正确的是( )。
选项
A、记录类型animal不能在Form1中定义,必须在标准模块中定义
B、如果文件c:\vbTest.dat不存在,则Open命令执行失败
C、由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D、语句“Put#1”“rec”将animal类型的两个数据元素写到文件中
答案
B
解析
本题考查随机文件的基本操作。随机文件以记录作为存储单位,以Random打开文件的格式为:Open文件名For Random As撑文件号[Len=记录长度]。如果文件不存在,则打开失败。写操作格式为:Put[#]文件号,[记录号],变量名。可以将一个记录变量的内容写到指定的记录位置处,忽略记录号,则表示在当前记录后的位置插入一条记录。读操作格式为:Get[#]文件号,[记录号],变量名。如果忽略记录号,则读出当前记录后面的那一条记录。一般记录类型在VB中是以Type定义的自定义类型,可以在窗体和标准模块中定义。
转载请注明原文地址:https://kaotiyun.com/show/F3Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段运行后窗体上输出结果为()。PrivateSubCommand1_Click()a=5:b=4:c=3:d=2x=3>2*bOra=cAndb<>cOrc>d
下列程序的输出结果为______。SubPrin()DimBAsStringA=1B=A&Space(4)&APrintAPrintTrim(B)
下列这个Sub过程的功能是:统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。PrivateSubnumCount()DimnumAsIntegerS$="soft
在窗体上建立通用对话框需要添加的控件是()。
通过InputBox函数可以产生输入对话框。若执行下列语句:st$=InputBox("请输入字符串","字符串对话框","字符串")则运行程序,用户输入完毕并单击“确定”按钮后,st$变量的内容为()。
有下列两个过程:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=Xx=yy=tEndSubSub
设有下列二叉树:对此二叉树前序遍历的结果为
表达式Len(Str(1.3))Mod2的值为______。
若A=20,B=80,C=70,D=30,则表达式A+B>160Or(B*C>200AndNotD>60)的值是【】。
随机试题
有关TCP和UDP的说法中错误的是()
A.经营方式B.经营范围C.注册地址D.企业名称《药品经营许可证》变更分为许可事项变更和登记事项变更属于登记事项变更的是()。
甲工厂与乙工厂举行篮球友谊赛,比赛中甲工厂队员高某带球冲撞乙工厂队员李某,李某摔出场外,倒在正在场边观看比赛的9岁儿童刘某身上,致使刘某小腿骨骨折,裁判判定高某犯规。李某被撞后胸痛难忍,两人到医院检查,李某被诊断为胸骨骨折,住院1个月后出院,共花去医疗费2
根据我国宪法,可以由集体所有的自然资源是()
影响机床工作精度的主要因素有()。
某企业2008年发生的长期借款和仓库建造业务如下:(1)2008年1月1日,为建造一幢仓库从银行取得长期借款800万元,期限3年,合同年利率6%(合同利率等于实际利率),不计复利,每年末计提并支付利息一次,到期一次还本。(2)2008年1月1日
设总体X的分布函数为(X1,X2,…,X10)为来自总体X的简单随机样本,其观察值为1,1,3,1,0,0,3,1,0,1求总体X的分布律;
求下列旋转体的体积V:(Ⅰ)由曲线y=x2,x=y2所围图形绕x轴旋转所成旋转体;(Ⅱ)由曲线x=a(t-sint),y=a(1-cost)(0≤t≤2π),y=0所围图形绕y轴旋转的旋转体.
全面推进依法行政,从严治政,建设廉洁、勤政、务实、高效政府。
Tomysurprise,thehousewhichlookedrathershabbyoutsidewasluxuriouslyand________furnishedinside.
最新回复
(
0
)