问题
单项选择题
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open "c：\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat"rec.aColor="White"Put # 1，，rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义，必须在标准模块中定义D) 如果文件c:\vbTest.dat不存在，则Open命令执行失败C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D) 语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中
答案
参考答案：D
解析：[评析] 记录类型可以在标准模块中定义，也可以在窗体模块中定义。如果文件c:\vbTest.dat不存在，Open命令是可以执行的；随机访问模式中文件的写操作使用Put命令，其形式如下：Put[#]文件号，[记录号]，变量名。其中：记录号是大于1的整数，表示写入的是第几条记录；如果忽略记录号，则表示在当前记录后插入一条记录。