首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程: Private Sub Command l_Click() Dim rec As animal Open”c:\vbTest.dat”F
在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程: Private Sub Command l_Click() Dim rec As animal Open”c:\vbTest.dat”F
admin
2019-03-14
19
问题
在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程:
Private Sub Command l_Click()
Dim rec As animal
Open”c:\vbTest.dat”For Random As#l Len=Len(re@C@
rec.animalName=”cat”
rec.aColor=”White”
Put#1,,rec
Close#1
End Sub
记录类型定义如下:
Private Type animal
animalName As String*20
aColor As String*1 0
End Type
下列叙述中正确的是( )。
选项
A、记录类型animal不能在Forml中定义,必须在标准模块中定义
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/BoUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommand1Click()DimmAsStringm=InputBox(“请输入字符串”)Printpick_str(m)EndSubP
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
要将单选按钮Optl设为被选中,应设置的属性是。
下面对对象概念描述正确的是
下列关于线性链表的叙述中,正确的是
有数据定义语句:DimX,YAsInteger以上语句表明
以下自定义数据类型的语句中,正确的是
数据独立性是数据库技术的重要特点之一,所谓数据独立性是指
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
表达式Str(Len(“123”))+Str(77.7)的值是()。
随机试题
某患者认为医生诊断有误,迟迟不愿接受治疗,属于患者角色()
患者,女,8岁,近2年经常上腹隐痛,腹胀,晨起恶心,有时呕吐,食纳少,其父近期纤维胃镜检查诊为浅表胃炎、Hp(+),该患儿应选择以下哪项检查
X线管阴极的作用是
大连某航运公司所属的客轮“翱翔”号在大连驶往天津港途中,在青岛海域被海南某航运公司“飓风”号碰撞。“翱翔”号被迫驶往青岛港靠岸。“飓风”号没有停留,继续行驶至厦门港被扣留。如果由于碰撞,“翱翔”号上的乘客因此依运输合同请求大连某海运公司赔偿,就该案
根据世行的规定,在正式接受合同后,业主与承包商可就()进行谈判,加以确定。
在某大型工程项目的实施过程中,由于“下情不能上传,上情不能下达”,导致项目经理不能及时做出正确决策,拖延了工期。为了加快实施进度,项目经理修正信息传递工作流程。这种纠偏措施属于动态控制的()。
对下列行政复议事项,按照自愿、合法的原则,申请人和被申请人在行政复议机关作出行政复议决定以前可以达成和解,行政复议机关也可以调解的有()。
第三次科技革命推动了国际经济的调整,表现在()。①加速了世界经济的一体化②缩小了发展中国家与发达国家的贫富差距③推动了国际产业的分工④导致了西方大国经济地位的调整
按照唐律的规定,对于“决不待时”的重犯,不适用秋冬行刑,此重罪不包括()。
Whereisthenearestrestaurant?
最新回复
(
0
)