2014年9月計算機二級Access預測選擇題(3)
考點11：模塊VBA基礎
1.運行下列程序段，結果是( )。
For m = 10 To 1 Step 0
k = k + 3
Next m答案：B
A)形成死循環
B)循環體不執行即結束循環
C)出現語法錯誤
D)循環體執行一次后結束循環
2.假設某一數據庫表中有一個地址字段，查找地址最后兩個字為“8號”的記錄的準則是( )。答案：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.下列數組聲明語句中，正確的是( )。答案：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
打開窗體運行后，單擊命令按鈕，立即窗口上輸出的結果是( )。答案：A
A)2 32
B)12 3
C)2 2
D)12 32
7.以下過程的功能是向數組中增加字符，則程序中下畫線處應為( )
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
此程序運行結果為( )。答案：A
A)5
B)6
C)7
D)8
9.在VBA中，如果沒有顯式聲明或用符號來定義變量的數據類型，變量的默認數據類型為( )。答案：D
A)Boolean
B)Integer
C)String
D)Variant
10.給定日期DD，計算該日期當月最大天數的正確表達式是( )。答案：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 的輸出結果是( )。答案：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
打開窗體運行后，單擊命令按鈕，文本框中顯示的結果是( )。答案：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.定義了二維數組A(2 to 5,5)，該數組的元素個數為( )。答案：B
A)20
B)24
C)25
D)36
17.要將“選課成績”表中學生的成績取整，可以使用( )。答案：B
A)Abs([成績])
B)Int([成績])
C)Sqr([成績])
D)Sgn([成績])
18.在調試VBA程序時，能自動被檢查出來的錯誤是( )。答案：A
A)語法錯誤
B)邏輯錯誤
C)運行錯誤
D)語法錯誤和邏輯錯誤
19.有關VBA程序運行錯誤處理說法錯誤的是( )。答案：D
A)無論怎樣為程序代碼作徹底地測試與排錯，程序錯誤仍可能出現
B)VBA中提供On Error GoTo語句來控制當有錯誤發生時程序的處理
C)“On Error GoTo 標號”語句在遇到錯誤發生時，程序轉移到標號所指位置代碼執行
D)“On Error GoTo 0”語句表示發生錯誤時，跳轉至首行位置并向下執行
20.VBA中定義符號常量可以用關鍵字( )。答案：A
A)Const
B)Dim
C)Public
D)Static
21.在模塊的聲明部分使用“Option Base 1”語句，然后定義二維數組A(2 to 5,5)，則該數組的元素個數為( )。答案：A
A)20
B)24
C)25
D)36