单选题 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：
Private Type animal
　　animalName As String*20
　　a Color As String*10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Crick()
Dim rec As animal
Open"c:/vbTest.dat"For Random As #1 Len=Len(rec)
rec.animalName="Cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
则以下叙述中正确的是( )。