首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command1_Click() Dim rec As animal Open"c:\vbTest.dat"For Random As #1 Len=Len(r
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程: Private Sub Command1_Click() Dim rec As animal Open"c:\vbTest.dat"For Random As #1 Len=Len(r
admin
2016-09-18
44
问题
在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:
Private Sub Command1_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/XpLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
能够将文本框控件隐藏起来的属性是______。
如果将文本框的Locked属性设置为True,则以下说法()是正确的。
下列各组变量声明正确的是()。
VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是()。
数据处理的最小单位是
执行以下程序段后,变量C$的值为()。A$="VisualBasicPrograming"B$="Quick"C$=B$&Ucase(Mid$(A$,7,6))&Right$(A$,11)
设程序中有如下语句:x=inputBox(“输入”,“数据”,100)PrintX运行程序,执行上述语句,输入5并单击输入对话框上的“取消”按钮,则窗体上输出
设x=4,y=8,z=7,则以下表达式的运算结果是()。xz)Orz
已知a=5,b=/,c=12,下列表达式的值为True的是()。
下列运算符中,优先级别最低的是
随机试题
Thedoctor’sadvicewasthatthepatient________atonce.
防冲距大小确定的基本原则是根据油井()和泵径具体情况而定。
全科医学的核心内容是
某桥梁工程,其基础为钻孔桩。该工程的施工任务由甲公司总承包,其中桩基础施工分包给乙公司,建设单位委托丙公司监理,丙公司任命的总监理工程师具有多年桥梁设计工作经验。施工前甲公司复核了该工程的原始基准点,基准线和测量控制点,并经专业监理工程师审核批准。
某建筑装修工程,合同价为860万元,其中玻璃幕墙以360万元分包给一个具有相应资质的分包单位,该企业的成本是300万元,利润是200万元,则应该交的营业税是()。
根据投资者对风险收益的不同偏好,投资者的投资策略大致可分为保守稳健型和稳健成长型两类。()
阅读下面的诗歌,完成题目。卜算子葛立方袅袅水芝①红,脉脉蒹葭浦②。淅淅西风淡淡烟,几点疏疏雨。草草展杯觞,对此盈盈女。叶叶红衣③当酒船,细细流霞④举。【注】①水芝:荷花异名。②蒹葭浦:指一般的、寻常的水滨。③叶
孔子说:“举一隅,不以三隅反,则不复也。”这句话说明的学习现象是()
剪刀:布料:衣服()
根尖脓肿最少见的排脓方式是()。
最新回复
(
0
)