2013年9月計算機二級Access無紙化預(yù)測選擇題十一

2013年9月計算機二級Access無紙化預(yù)測選擇題匯總

　　考點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.以下合法的表達(dá)式是( )。答案：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á)式是( )。答案：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))

編輯推薦：

考試吧考后首發(fā)2013年9月計算機等級考試試題及答案

2013年計算機等級考試備考精華資料匯總

全國計算機等級考試教材目錄（2013年版）

全國計算機等級考試考試大綱（2013年版）