2009年9月計(jì)算機(jī)等考二級VB模擬題及解析(4)

　　(23) 假定在窗體(名稱為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中定義，必須在標(biāo)準(zhǔn)模塊中定義

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

　　C) 由于Put命令中沒有指明記錄號，因此每次都把記錄寫在文件的末尾

　　D) 語句"Put #1,,rec"將animal類型的兩個數(shù)據(jù)元素寫到文件中

　　正確答案: D