首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个名称为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
2018-09-19
65
问题
在窗体上有一个名称为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://www.kaotiyun.com/show/A9Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写以下程序代码:OptionBase1PrivateSubCommand1_Click()DimdataAsVariant,mAsInteger,nAsInteger
以下关于数组的叙述中,错误的是
以下叙述中正确的是( )。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() DimnumAsInteger,xAsInteger num=Val(InputBox("请输入一个正整数"))
VB应用程序不能把一个二维表格中的数据存入文件
以下选项中,不合法的VisualBasic的变量名是( )。
在面向对象方法中,不属于“对象”基本特点的是()。
下列选项中属于面向对象设计方法主要特征的是( )。
按照“后进先出”原则组织数据的数据结构是
随机试题
属于磁共振血管成像技术之外的是
气胸的体征有()
原发性肾小球疾病的病理分型不包括
地下铁路网布置的基本原则包括( )。
用户可以通过Exeel创建超级链接,获取互联网或局域网上的共享数据。()
位于市区的甲汽车轮胎厂,2014年5月实际缴纳增值税和消费税362万元。其中包括位于县城的乙企业代收代缴的消费税30万元、进口环节增值税和消费税50万元、被税务机关查补的增值税12万元,补交增值税同时缴纳的滞纳金和罚款共计8万元。甲厂本月应向所在市区税务机
导游在送散客赴机场或火车站途中应做的主要工作有()。
下面程序的运行结果是#includevoiddelch(char*s){inti,j;char*a;a=s;for(i=0,j=0;a[i]!=′\n′;i++)if(a[i]>=′0′&&a[i]
Sincethedawnofhumaningenuity,peoplehavedevisedevermorecunningtoolstocopewithworkthatisdangerous,boring,burd
Morethanacenturyafteritsdiscovery,Alzheimer’sdisease(老年痴呆症)isstilldestroyingpeople’sbrains.Buttheresearchmayoff
最新回复
(
0
)