2014年9月計算機二級Access預(yù)測選擇題(3)
考點11：模塊VBA基礎(chǔ)
1.運行下列程序段，結(jié)果是( )。
For m = 10 To 1 Step 0
k = k + 3
Next m答案：B
A)形成死循環(huán)
B)循環(huán)體不執(zhí)行即結(jié)束循環(huán)
C)出現(xiàn)語法錯誤
D)循環(huán)體執(zhí)行一次后結(jié)束循環(huán)
2.假設(shè)某一數(shù)據(jù)庫表中有一個地址字段，查找地址最后兩個字為“8號”的記錄的準(zhǔn)則是( )。答案：A
A)Right([地址],2)="8號"
B)Right([地址],4)="8號"
C)Right("地址",2)="8號"
D)Right("地址",4)="8號"
3.以下合法的表達式是( )。答案：B
A)教師編號between 100000 and 200000
B)[性別]="男" or"女"
C)[基本工資]>=1000[基本工資]<=10000
D)[性別]like"男"=[性別]="女"
4.下列Case語句中錯誤的是( )。答案：C
A)Case 0 To 10
B)Case Is>10
C)Case Is>10 And Is<50
D)Case 3,5,Is>10
5.下列數(shù)組聲明語句中，正確的是( )。答案：B
A)Dim A[3,4] As Integer
B)Dim A(3,4)As Integer
C)Dim A[3;4] As Integer
D)Dim A(3;4)As Integer
6.在窗體上有一個命令按鈕Command1，編寫事件代碼如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打開窗體運行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是( )。答案：A
A)2 32
B)12 3
C)2 2
D)12 32
7.以下過程的功能是向數(shù)組中增加字符，則程序中下畫線處應(yīng)為( )
Private Sub AddToArray(arr(),arraycount%,ByVal charstring)
Dim i%, found As Boolean
found=False
For i=1 To arraycount
If array(i)=charstring Then
found=True
Exit For
End If
Next i
If Not found Then
arraycount= arraycount+1
———
arr(arraycount)=charstring
End If
End Sub答案：B
A)ReDim arr(arraycount)
B)ReDim Preserve arr(arraycount)
C)Dim arr(arraycount)
D)Dim Preserve arr(arraycount)
8.以下窗體加載事件程序如下：
Private Sub Form_Load()
Do
b = b + 1
If b = 5 Then Exit Do
Loop
Msgbox b
End Sub
此程序運行結(jié)果為( )。答案：A
A)5
B)6
C)7
D)8
9.在VBA中，如果沒有顯式聲明或用符號來定義變量的數(shù)據(jù)類型，變量的默認(rèn)數(shù)據(jù)類型為( )。答案：D
A)Boolean
B)Integer
C)String
D)Variant
10.給定日期DD，計算該日期當(dāng)月最大天數(shù)的正確表達式是( )。答案：D
A)Day(DD)
B)Day(DateSerial(Year(DD)，Month(DD)，day(DD)))
C)Day(DateSerial(Year(DD)，Month(DD)，0))
D)Day(DateSerial(Year(DD)，Month(DD)+1,0))
11.VBA 表達式3*3\3/3 的輸出結(jié)果是( )。答案：C
A)0
B)1
C)3
D)9
12.在窗體上有一個命令按鈕Command1和一個文本框Text1，編寫事件代碼如下：
Private Sub Command1_Click()
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打開窗體運行后，單擊命令按鈕，文本框中顯示的結(jié)果是( )。答案：A
A)1
B)7
C)17
D)400
13.假定有以下程序段：
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next i
運行完畢后，n的值是( )。答案：D
A)0
B)3
C)4
D)12
14.下列變量名中，合法的是( )。答案：C
A)4A
B)A-1
C)ABC_1
D)private
15.以下返回值是“False”的語句是( )。答案：D
A)Value=(10>4)
B)Value=("ab"<>"aaa")
C)Value=("周"<"劉")
D)Value=(#2004/9/13#<=#2004/10/10#)
16.定義了二維數(shù)組A(2 to 5,5)，該數(shù)組的元素個數(shù)為( )。答案：B
A)20
B)24
C)25
D)36
17.要將“選課成績”表中學(xué)生的成績?nèi)≌梢允褂? )。答案：B
A)Abs([成績])
B)Int([成績])
C)Sqr([成績])
D)Sgn([成績])
18.在調(diào)試VBA程序時，能自動被檢查出來的錯誤是( )。答案：A
A)語法錯誤
B)邏輯錯誤
C)運行錯誤
D)語法錯誤和邏輯錯誤
19.有關(guān)VBA程序運行錯誤處理說法錯誤的是( )。答案：D
A)無論怎樣為程序代碼作徹底地測試與排錯，程序錯誤仍可能出現(xiàn)
B)VBA中提供On Error GoTo語句來控制當(dāng)有錯誤發(fā)生時程序的處理
C)“On Error GoTo 標(biāo)號”語句在遇到錯誤發(fā)生時，程序轉(zhuǎn)移到標(biāo)號所指位置代碼執(zhí)行
D)“On Error GoTo 0”語句表示發(fā)生錯誤時，跳轉(zhuǎn)至首行位置并向下執(zhí)行
20.VBA中定義符號常量可以用關(guān)鍵字( )。答案：A
A)Const
B)Dim
C)Public
D)Static
21.在模塊的聲明部分使用“Option Base 1”語句，然后定義二維數(shù)組A(2 to 5,5)，則該數(shù)組的元素個數(shù)為( )。答案：A
A)20
B)24
C)25
D)36