男性，20岁，近5年反复咳嗽、咳脓痰，抗炎治疗后病情可暂时短期缓解，但从未系统体检

你认为最可能的诊断是（）

A.慢性支气管炎

B.阻塞性肺炎

C.早期肺癌

D.支气管扩张

E.支气管内膜结核

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbTest.dat" For Random As #1 Len=Len(ree)
rec.animalName="cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
记录类型定义如下：
Private Type animal
animalName As String*20
aColor As String*10
End Type
下列叙述中正确的是( )。

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

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

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

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