Open语句中文件号是一个（）数据类型。

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。

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

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

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

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

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。

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

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

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

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

假定在窗体（名称为Form1） 的代码窗口中定义如下记录类型：

Private Type animal

animalName 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"

Put #1,,rec

Close #1

End Sub

则以下叙述中正确的是（ ）。

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

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

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

D．语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：

Private Type animal

AnimalName 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"

 Put #1, , rec

Close #1

End Sub

则以下叙述中正确的是（ ）。

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

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

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

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

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal animalName 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(reCreC.animalName = "Cat" reC．aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是

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

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

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

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

假定在窗体(名称为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中定义，必须在标准模块中定义

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

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

D．语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中

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

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName 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" Put #1, , rec End Sub 则以下叙述中正确的是______。

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

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

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

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

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

A. Dim b&

B. dim c

C. Dim a%

D. Dim d$