22.VBA中不能進行錯誤處理的語句結構是( )。答案：C

　　A)On Error Then標號

　　B)On Error Goto標號

　　C)On Error Resume Next

　　D)On Error Goto 0

　　23.表達式Val("12 3E2CD")的值是( )。答案：A

　　A)123

　　B)12.3

　　C)0

　　D)123E2CD

　　24.設有如下過程：

　　x=1

　　Do

　　x=x+2

　　Loop Until _________

　　運行程序，要求循環體執行3次后結束循環，空白處應填入的語句是( )。答案：C

　　A)x<=7

　　B)x<7

　　C)x>=7

　　D)x>7

　　25.窗體中有命令按鈕Command1，事件過程如下：

　　Public Function f(x As Integer)As Integer

　　Dim y As Integer

　　x=20

　　y=2

　　f=x*y

　　End Function

　　Private Sub Command1_Click()

　　Dim y As Integer

　　Static x As Integer

　　x=10

　　y=5

　　y=f(x)

　　Debug.Print x;y

　　End Sub

　　運行程序，單擊命令按鈕，則立即窗口中顯示的內容是( )。答案：D

　　A)10 5

　　B)10 40

　　C)20 5

　　D)20 40

　　26.兩個日期變量 D1=#2003-5-28 20:8:36# ，D2=#2004-2-29 10:40:11#。下列函數表達式中可以返回-9，即間隔9月的是( )。答案：B

　　A)DateAdd("m",-9,D1)

　　B)DateDiff("m",D2,D1)

　　C)DateDiff("m",D1,D2)

　　D)DateSerial(2004,2,29)

　　27.由“For i=1 To 9 Step -3”決定的循環結構，其循環體將被執行( )。答案：A

　　A)0次

　　B)1次

　　C)4次

　　D)5次

　　28.On Error Goto 0語句的含義是( )。答案：B

　　A)忽略錯誤并執行下一條語句

　　B)取消錯誤處理

　　C)遇到錯誤執行定義的錯誤

　　D)退出系統

　　29.在窗體中有一個命令按鈕Command1，編寫事件代碼如下：

　　Private Sub Command1_Click()

　　Dim s As Integer

　　s = P(1)+P(2)+P(3)+P(4)

　　debug.Print s

　　End Sub

　　Public Function P(N As Integer)

　　Dim Sum As Integer

　　Sum = 0

　　For i = 1 To N

　　Sum = Sum + i

　　Next i

　　P = Sum

　　End Function

　　打開窗體運行后，單擊命令按鈕，輸出結果是( )。答案：B

　　A)15

　　B)20

　　C)25

　　D)35

　　30.表達式“B=INT(A+0.5)”的功能是( )。答案：B

　　A)將變量A保留小數點后1位

　　B)將變量A四舍五入取整

　　C)將變量A保留小數點后5位

　　D)舍去變量A的小數部分

　　31.若要在子過程Proc1調用后返回兩個變量的結果，下列過程定義語句中有效的是( )。答案：A

　　A)Sub Proc1(n, m)

　　B)Sub Proc1(ByVal n, m)

　　C)Sub Proc1(n, ByVal m)

　　D)Sub Proc1(ByVal n, ByVal m)

　　32.下列表達式計算結果為數值類型的是( )。答案：B

　　A)#5/5/2010#-#5/1/2010#

　　B)"102">"11"

　　C)102=98+4

　　D)#5/1/2010#+5

　　33.在過程定義中有語句：

　　Private Sub GetData ( ByRef f As Integer)

　　其中“ByRef”的含義是( )。答案：B

　　A)傳值調用

　　B)傳址調用

　　C)形式參數

　　D)實際參數

　　34.要想在過程Proc調用后返回形參x和y的變化結果，下列定義語句中正確的是( )。答案：A

　　A)Sub Proc(x as Integer,y as Integer)

　　B)Sub Proc(ByVal x as Integer,y as Integer)

　　C)Sub Proc(x as Integer,ByVal y as Integer)

　　D)Sub Proc(ByVal x as Integer,ByVal y as Integer)

　　35.已知程序段：

　　s=0

　　For i=1 To 10 Step 2

　　s=s+1

　　i=i*2

　　Next i

　　當循環結束后，變量i、s的值各為( )。答案：C

　　A)10,4

　　B)11,3

　　C)22,3

　　D)16,4

　　36.軟件(程序)調試的任務是( )。答案：A

　　A)診斷和改正程序中的錯誤

　　B)盡可能多地發現程序中的錯誤

　　C)發現并改正程序中的所有錯誤

　　D)確定程序中錯誤的性質

　　37.VBA中用實際參數a和b調用有參過程Area(m,n)的正確形式是( )。答案：B

　　A)Area m,n

　　B)Area a,b

　　C)Call Area(m,n)

　　D)Call Area a,b

　　38.在窗體上畫一個命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim a()

　　a=Array(1,3,5,7)

　　s=0

　　For i=1 To 3

　　s=s*10+a(i)

　　Next i

　　MsgBox s

　　End Sub

　　程序運行后，輸出結果為( )。答案：B

　　A)135

　　B)357

　　C)531

　　D)753

　　39.假設有一組數據：工資為800元，職稱為“講師”，性別為“男”，在下列邏輯表達式中結果為“假”的是( )。答案：A

　　A)工資>800 AND 職稱="助教" OR 職稱="講師"

　　B)性別="女" OR NOT 職稱="助教"

　　C)工資=800 AND (職稱="講師" OR 性別="女")

　　D)工資>800 AND (職稱="講師" OR 性別="男")

　　40.執行下面的程序段后，x的值為( )。

　　x=5

　　For I=1 To 20 Step 2

　　x=x+I\5

　　Next I答案：C

　　A)21

　　B)22

　　C)23

　　D)24

　　41.在窗體中有一個名為Command1的命令按鈕和一個名為Lb1的標簽控件，Click事件代碼如下：

　　Private Sub Command1_Click()

　　f=0

　　for n=1 To 10 Step 2

　　f=f+n

　　Next n

　　Me!Lb1.Caption=f

　　End Sub

　　單擊命令按鈕后，標簽顯示結果是( )。答案：D

　　A)16

　　B)14

　　C)26

　　D)25