[單項(xiàng)選擇題] 假定在窗體(名稱為Form1)的代碼窗口中定義如下記錄類型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗體上面一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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中定義，必須在標(biāo)準(zhǔn)模塊中定義

B．如果文件"c:vbTes dat"不存在，則Open命令執(zhí)行失敗

C．由于Put命令中沒(méi)有指明記錄號(hào)，因此每次都把記錄寫(xiě)到文件的末尾

D．語(yǔ)句“Put #1, , rec”將animal類型的兩個(gè)數(shù)據(jù)元素寫(xiě)到文件中

D解析：[分析]： 選項(xiàng)A在一般情況下，記錄類型應(yīng)在標(biāo)準(zhǔn)模塊中定義。如果在窗體模塊中定義，則必須在"Type"關(guān)鍵字前面加上“Private”；選項(xiàng)B用Open語(yǔ)句打開(kāi)文件時(shí)，如果為輸入(Input)打開(kāi)的文件不存在，則產(chǎn)生“文件未找到”錯(cuò)誤；如果為輸出(Output)、附加(Append)或隨機(jī)(Random)訪問(wèn)方式打開(kāi)的文件不存在，則建立相應(yīng)的文件；選項(xiàng)C如果沒(méi)有指明記錄號(hào)，則將上一個(gè)Get或Put語(yǔ)句之后的(或上一個(gè)Seek函數(shù)指出的)下一個(gè)記錄或字節(jié)寫(xiě)入。選項(xiàng)D由于rec是animal類型變