2013年計(jì)算機(jī)二級(jí)ACCESS筆試預(yù)測(cè)試題及答案（5）

　　(26)VBA中不能進(jìn)行錯(cuò)誤處理的語句結(jié)構(gòu)是

　　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

　　(27)執(zhí)行語句：MsgBox "AAAA",vbOKCancel+vbQuestion,"BBBB"之后，彈出的信息框

　　A)標(biāo)題為"BBBB"、框內(nèi)提示符為"驚嘆號(hào)"、提示內(nèi)容為"AAAA"

　　B)標(biāo)題為"AAAA"、框內(nèi)提示符為"驚嘆號(hào)"、提示內(nèi)容為"BBBB"

　　C)標(biāo)題為"BBBB"、框內(nèi)提示符為"問號(hào)"、提示內(nèi)容為"AAAA"

　　D)標(biāo)題為"AAAA"、框內(nèi)提示符為"問號(hào)"、提示內(nèi)容為"BBBB"

　　(28)已知程序段：

　　s = 0

　　For i = 1 To 10 Step 2

　　s = s + 1

　　i = i * 2

　　Next i

　　當(dāng)循環(huán)結(jié)束后，變量i和s的值分別為______

　　A)10 4

　　B)11 3

　　C)22 3

　　D)16 4

　　(29)以下內(nèi)容中不屬于VBA提供的數(shù)據(jù)驗(yàn)證函數(shù)的是

　　A)IsText

　　B)IsDate

　　C)IsNumeric

　　D)IsNull

　　(30)給定日期DD，可以計(jì)算該日期當(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))

　　(31)假定有以下兩個(gè)過程：

　　Sub S1(ByVal x As Integer, ByVal y As Integer)

　　Dim t As Integer

　　t = x

　　x = y

　　y = t

　　End Sub

　　Sub S2(x As Integer, y As Integer)

　　Dim t As Integer

　　t = x

　　x = y

　　y = t

　　End Sub

　　則以下說法中正確的是

　　A)用過程S1可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S2不能實(shí)現(xiàn)

　　B)用過程S2可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S1不能實(shí)現(xiàn)

　　C)用過程S1和S2都可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作

　　D)用過程S1和S2都不能實(shí)現(xiàn)交換兩個(gè)變量的值的操作

　　(32)在窗體中有一個(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

　　打開窗體運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

　　A)15 B)20 C)25 D)35

　　(33)在窗體中有一個(gè)命令按鈕Command1和一個(gè)文本框Text1，編寫事件代碼如下：

　　Private Sub Command1_Click()

　　For I =1 To 4

　　x = 3

　　For j = 1 To 3

　　For k = 1 To 2

　　x = x + 3

　　Next k

　　Next j

　　Next I

　　Text1.value = Str(x)

　　End Sub

　　打開窗體運(yùn)行后，單擊命令按鈕，文本框Text1輸出的結(jié)果是

　　A)6 B)12 C)18 D)21

　　(34)在窗體中有一個(gè)命令按鈕run35，對(duì)應(yīng)的事件代碼如下：

　　Private Sub run35_Enter( )

　　Dim num As Integer

　　Dim a As Integer

　　Dim b As Integer

　　Dim i As Integer

　　For i= 1 To 10

　　num = InputBox("請(qǐng)輸入數(shù)據(jù):", "輸入",1)

　　If Int(num/2) = num/2 Then

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("運(yùn)行結(jié)果：a=" & Str(a) &",b=" & Str(b))

　　End Sub

　　運(yùn)行以上事件所完成的功能是

　　A)對(duì)輸入的10個(gè)數(shù)據(jù)求累加和

　　B)對(duì)輸入的10個(gè)數(shù)據(jù)求各自的余數(shù)，然后再進(jìn)行累加

　　C)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是整數(shù)，有幾個(gè)是非整數(shù)

　　D)對(duì)輸入的10個(gè)數(shù)據(jù)分別統(tǒng)計(jì)有幾個(gè)是奇數(shù)，有幾個(gè)是偶數(shù)

　　(35)以下是宏m的操作序列設(shè)計(jì)：

　　條件 操作序列 操作參數(shù)

　　MsgBox消息為"AA"

　　[tt]>1 MsgBox消息為"BB"

　　… MsgBox消息為"CC"

　　現(xiàn)設(shè)置宏m為窗體"fTest"上名為"bTest"命令按鈕的單擊事件屬性，打開窗體"fTest"運(yùn)行后，在窗體上名為"tt"的文本框內(nèi)輸入數(shù)字1，然后單擊命令按鈕bTest，則

　　A)屏幕會(huì)先后彈出三個(gè)消息框，分別顯示消息"AA"、"BB"、"CC"

　　B)屏幕會(huì)彈出一個(gè)消息框，顯示消息"AA"

　　C)屏幕會(huì)先后彈出兩個(gè)消息框，分別顯示消息"AA"和"BB"

　　D)屏幕會(huì)先后彈出兩個(gè)消息框，分別顯示消息"AA"和"CC"