(32)設(shè)有如下程序：
Dim a()As Integer
Private Sub Command1_Click()
n=-5：m=6
ReDim a(n To m)
For i=LBound(a，1)To UBound(a，1)
a(i)=i
Next i
Print a(LBound(a，1))；a(UBound(a，1))
End Sub
程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果是__________。
A)0 0 B)-5 0 C)-5 6 DO 6
答案：C
評(píng)析:ReDim a(n T0 m)指明動(dòng)態(tài)數(shù)組a的下標(biāo)和上標(biāo)為一5和6；則LBound(a,1)=-5、UBound(a,1)=6。故Print a(LBound(a，1))；a(UBound(a，1))輸出a(-5)、a(6)的值。
(33)假定在窗體(名稱為Form1)的代碼窗口中定義如下記錄類型：
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim rec As animal
Open"c：＼vbTest．Dat"For Random As # l Len=Len(tee)
rec．a(chǎn)nimalName="cat"
rec．a(chǎn)Color="White"
Put # l，，rec
Close # l
End Sub
則以下敘述中正確的是___________。
A)記錄類型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義
B)如果文件c：＼vbTest．dat不存在，則Open命令執(zhí)行失敗
C)由于Put命令中沒有指明記錄號(hào)，因此每次都把記錄寫到文件的末尾
D)語句"Put # l，，rec"將animal類型的兩個(gè)數(shù)據(jù)元素寫到文件中
答案：D
評(píng)析:記錄類型可以在標(biāo)準(zhǔn)模塊中定義，也可以在窗體模塊中定義如果文件c：＼vbTest．dat不存在，Open命令是可以執(zhí)行的；隨機(jī)訪問模式中文件的寫操作使用Put命令，其形式如下：Put[#]文件號(hào)，[記錄號(hào)]，變量名。其中：記錄號(hào)是大于1的整數(shù)，表示寫入的是第幾條記錄。如果忽略記錄號(hào)，則表示在當(dāng)前記錄后插入一條記錄。
(34)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的 事件過程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f=m
Else
F=l
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s=0
For i=l TO 5
s=s+f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是__________。
A)ll B)10 C)9 D)8
答案：C
評(píng)析：命令按鈕事件過程中的For循環(huán)的作用是求函數(shù)f(i)(i介于l與5之間的整數(shù))的返回值的和。函數(shù)f的作用是如果參數(shù)m的值是偶數(shù)，返回值就是m的值，是奇數(shù)，返回值就是1。而1到5之間的整數(shù)中共有3個(gè)奇數(shù)，兩個(gè)偶數(shù)，故s=3*1+2+4=9。
Dim a()As Integer
Private Sub Command1_Click()
n=-5：m=6
ReDim a(n To m)
For i=LBound(a，1)To UBound(a，1)
a(i)=i
Next i
Print a(LBound(a，1))；a(UBound(a，1))
End Sub
程序運(yùn)行后，單擊命令按鈕，則輸出結(jié)果是__________。
A)0 0 B)-5 0 C)-5 6 DO 6
答案：C
評(píng)析:ReDim a(n T0 m)指明動(dòng)態(tài)數(shù)組a的下標(biāo)和上標(biāo)為一5和6；則LBound(a,1)=-5、UBound(a,1)=6。故Print a(LBound(a，1))；a(UBound(a，1))輸出a(-5)、a(6)的值。
(33)假定在窗體(名稱為Form1)的代碼窗口中定義如下記錄類型：
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim rec As animal
Open"c：＼vbTest．Dat"For Random As # l Len=Len(tee)
rec．a(chǎn)nimalName="cat"
rec．a(chǎn)Color="White"
Put # l，，rec
Close # l
End Sub
則以下敘述中正確的是___________。
A)記錄類型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義
B)如果文件c：＼vbTest．dat不存在，則Open命令執(zhí)行失敗
C)由于Put命令中沒有指明記錄號(hào)，因此每次都把記錄寫到文件的末尾
D)語句"Put # l，，rec"將animal類型的兩個(gè)數(shù)據(jù)元素寫到文件中
答案：D
評(píng)析:記錄類型可以在標(biāo)準(zhǔn)模塊中定義，也可以在窗體模塊中定義如果文件c：＼vbTest．dat不存在，Open命令是可以執(zhí)行的；隨機(jī)訪問模式中文件的寫操作使用Put命令，其形式如下：Put[#]文件號(hào)，[記錄號(hào)]，變量名。其中：記錄號(hào)是大于1的整數(shù)，表示寫入的是第幾條記錄。如果忽略記錄號(hào)，則表示在當(dāng)前記錄后插入一條記錄。
(34)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下通用過程和命令按鈕的 事件過程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f=m
Else
F=l
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s=0
For i=l TO 5
s=s+f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是__________。
A)ll B)10 C)9 D)8
答案：C
評(píng)析：命令按鈕事件過程中的For循環(huán)的作用是求函數(shù)f(i)(i介于l與5之間的整數(shù))的返回值的和。函數(shù)f的作用是如果參數(shù)m的值是偶數(shù)，返回值就是m的值，是奇數(shù)，返回值就是1。而1到5之間的整數(shù)中共有3個(gè)奇數(shù)，兩個(gè)偶數(shù)，故s=3*1+2+4=9。