问题
单项选择题
假字在窗体(名称为Forml)的代码窗口中定义如下记录类型:
Private Type animal
Anima1Name As String * 20
aColor As String * 10
End Type
在窗体上画一个名称为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"
Pat#1 , rec
Close#1
End Sub
则以下叙述中正确的是
A．记录类型animal不能在Form1中定义,必须在标准模块中定义
B．如果文件c：\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句"Put#1，rec"将animal类型的两个数据元素写到文件中
答案
参考答案：D
解析： Type语句通常在标准模块中使用，如果放在窗体模块中，则应加上关键字Private。如果文件vbText.dat不存在，则Open语句可以自行生成一个文件。对于用Random方式打开的文件，“记录号”是需要写入的编号。如果省略，则写到下一个记录位置，即最近执行Get或Put语句后或由最近的Seek语句所指定的位置。注意，省略记录号，逗号不可以省略。