在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程: Private Sub Command 1一Click() Dim rec As animal Open”c:\v.bTest.dat”For Random As#l Len=Len(

admin2015-12-04  45

问题 在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程:
Private Sub Command 1一Click()
Dim rec As animal
Open”c:\v.bTest.dat”For Random As#l Len=Len(rec)rec.animalName=“cat”
rec.aColor=“White”
Put#1,,rec
Close#1
End Sub
记录类型定义如下:
Private Type animal
animalName As String*S20
aColor As String*10
End Type
下列叙述中正确的是(    )。

选项 A、记录类型animal不能在Forml中定义,必须在标准模块中定义
B、如果文件c:\vbTest.dat不存在,则Open命令执行失败
C、由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D、语句“Put#1,,rec”将animal类型的两个数据元素写到文件中

答案B

解析 本题考查随机文件的基本操作。随机文件以记录作为存储单位,以Random打开文件的格式为:Open文件名ForRandomAs群文件号[Len≈记录长度],如果文件不存在,则打开失败。写操作格式为:Put[#]文件号,[记录号],变量名。可以将一个记录变量的内容写到指定的记录位置处,忽略记录号,则表示在当前记录后的位置插入一条记录。读操作格式为:Get[#]文件号,[记录号],变量名。如果忽略记录号,则读出当前记录后面的那一条记录。一般记录类型在VB中是以1.Type定义的自定义类型,可以在窗体和标准模块中定义。
转载请注明原文地址:https://jikaoti.com/ti/vLJ0FFFM
0

随机试题
最新回复(0)