问题 单项选择题

假定在窗体(名称为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
则以下叙述中正确的是( )。

A.记录类型animal不能在Form1中定义,必须在标准模块中定义

B.如果文件c:\vbTest.dat不存在,则Open命令执行失败

C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾

D.语句“Put#l,,rec”将animal类型的两个数据元素写到文件中

答案

参考答案:D

单项选择题 案例分析题
单项选择题