假字在窗体(名称为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类型的两个数据元素写到文件中
