(26)VBA中不能進行錯誤處理的語句結構是

　　A)On Error Then 標號

　　B)On Error Goto 標號

　　C)On Error Resume Next

　　D)On Error Goto 0

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

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

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

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

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

　　(28)已知程序段：

　　s = 0

　　For i = 1 To 10 Step 2

　　s = s + 1

　　i = i * 2

　　Next i

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

　　A)10 4

　　B)11 3

　　C)22 3

　　D)16 4

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

　　A)IsText

　　B)IsDate

　　C)IsNumeric

　　D)IsNull

　　(30)給定日期DD，可以計算該日期當月最大天數(shù)的正確表達式是

　　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)假定有以下兩個過程：

　　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可以實現(xiàn)交換兩個變量的值的操作，S2不能實現(xiàn)

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

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

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

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

　　打開窗體運行后，單擊命令按鈕，輸出結果是

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

　　(33)在窗體中有一個命令按鈕Command1和一個文本框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

　　打開窗體運行后，單擊命令按鈕，文本框Text1輸出的結果是

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

　　(34)在窗體中有一個命令按鈕run35，對應的事件代碼如下：

　　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("請輸入數(shù)據(jù):", "輸入",1)

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

　　a = a + 1

　　Else

　　b = b + 1

　　End If

　　Next i

　　MsgBox("運行結果：a=" & Str(a) &",b=" & Str(b))

　　End Sub

　　運行以上事件所完成的功能是

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

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

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

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

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

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

　　MsgBox消息為"AA"

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

　　… MsgBox消息為"CC"

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

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

　　B)屏幕會彈出一個消息框，顯示消息"AA"

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

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