22.VBA中不能進(jìn)行錯(cuò)誤處理的語(yǔ)句結(jié)構(gòu)是( )。答案：C

　　A)On Error Then標(biāo)號(hào)

　　B)On Error Goto標(biāo)號(hào)

　　C)On Error Resume Next

　　D)On Error Goto 0

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

　　A)123

　　B)12.3

　　C)0

　　D)123E2CD

　　24.設(shè)有如下過(guò)程：

　　x=1

　　Do

　　x=x+2

　　Loop Until _________

　　運(yùn)行程序，要求循環(huán)體執(zhí)行3次后結(jié)束循環(huán)，空白處應(yīng)填入的語(yǔ)句是( )。答案：C

　　A)x<=7

　　B)x<7

　　C)x>=7

　　D)x>7

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

　　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

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

　　A)10 5

　　B)10 40

　　C)20 5

　　D)20 40

　　26.兩個(gè)日期變量 D1=#2003-5-28 20:8:36# ，D2=#2004-2-29 10:40:11#。下列函數(shù)表達(dá)式中可以返回-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”決定的循環(huán)結(jié)構(gòu)，其循環(huán)體將被執(zhí)行( )。答案：A

　　A)0次

　　B)1次

　　C)4次

　　D)5次

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

　　A)忽略錯(cuò)誤并執(zhí)行下一條語(yǔ)句

　　B)取消錯(cuò)誤處理

　　C)遇到錯(cuò)誤執(zhí)行定義的錯(cuò)誤

　　D)退出系統(tǒng)

　　29.在窗體中有一個(gè)命令按鈕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

　　打開(kāi)窗體運(yùn)行后，單擊命令按鈕，輸出結(jié)果是( )。答案：B

　　A)15

　　B)20

　　C)25

　　D)35

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

　　A)將變量A保留小數(shù)點(diǎn)后1位

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

　　C)將變量A保留小數(shù)點(diǎn)后5位

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

　　31.若要在子過(guò)程Proc1調(diào)用后返回兩個(gè)變量的結(jié)果，下列過(guò)程定義語(yǔ)句中有效的是( )。答案：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.下列表達(dá)式計(jì)算結(jié)果為數(shù)值類型的是( )。答案：B

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

　　B)"102">"11"

　　C)102=98+4

　　D)#5/1/2010#+5

　　33.在過(guò)程定義中有語(yǔ)句：

　　Private Sub GetData ( ByRef f As Integer)

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

　　A)傳值調(diào)用

　　B)傳址調(diào)用

　　C)形式參數(shù)

　　D)實(shí)際參數(shù)

　　34.要想在過(guò)程Proc調(diào)用后返回形參x和y的變化結(jié)果，下列定義語(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

　　當(dāng)循環(huán)結(jié)束后，變量i、s的值各為( )。答案：C

　　A)10,4

　　B)11,3

　　C)22,3

　　D)16,4

　　36.軟件(程序)調(diào)試的任務(wù)是( )。答案：A

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

　　B)盡可能多地發(fā)現(xiàn)程序中的錯(cuò)誤

　　C)發(fā)現(xiàn)并改正程序中的所有錯(cuò)誤

　　D)確定程序中錯(cuò)誤的性質(zhì)

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

　　A)Area m,n

　　B)Area a,b

　　C)Call Area(m,n)

　　D)Call Area a,b

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

　　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

　　程序運(yùn)行后，輸出結(jié)果為( )。答案：B

　　A)135

　　B)357

　　C)531

　　D)753

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

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

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

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

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

　　40.執(zhí)行下面的程序段后，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.在窗體中有一個(gè)名為Command1的命令按鈕和一個(gè)名為L(zhǎng)b1的標(biāo)簽控件，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

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

　　A)16

　　B)14

　　C)26

　　D)25