避震器品牌:为什么open命令还可以执行?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/02 09:59:19
在窗体上画一个名称为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类型的两个数据元素写到文件中
正确答案是D
请问为什么“如果文件c:\vbTest.dat不存在,Open命令是可以执行的”呢?谢谢!

因为它在输出打开方式下会自动创建一个空的c:\vbTest.dat

OPEN只不过是打开文件罢了,如果不存在或许读出的只是个空档