(19)下列邏輯表達(dá)式中，能正確表示條件"x和y都是奇數(shù)"的是

　　A)x Mod 2=1 Or y Mod 2=1

　　B)x Mod 2=0 Or y Mod 2=0

　　C)x Mod 2=1 And y Mod 2=1

　　D)x Mod 2=0 And y Mod 2=0

　　(20)在窗體中添加了一個(gè)文本框和一個(gè)命令按鈕(名稱分別為tText和bCommand)，并編寫了相應(yīng)的事件過程。運(yùn)行此窗體后，在文本框中輸入一個(gè)字符，則命令按鈕上的標(biāo)題變?yōu)?計(jì)算機(jī)等級(jí)考試"。以下能實(shí)現(xiàn)上述操作的事件過程是

　　A)Private Sub bCommand_Click()

　　Caption="計(jì)算機(jī)等級(jí)考試"

　　End Sub

　　B)Private Sub tText_Click()

　　bCommand.Caption="計(jì)算機(jī)等級(jí)考試"

　　End Sub

　　C)Private Sub bCommand_Change()

　　Caption="計(jì)算機(jī)等級(jí)考試"

　　End Sub

　　D)Private Sub tText_Change()

　　bCommand.Caption="計(jì)算機(jī)等級(jí)考試"

　　End Sub

　　(21)從字符串s中的第2個(gè)字符開始獲得4個(gè)字符的子字符串函數(shù)是

　　A)Mid$(s,2,4)

　　B)Left$(s,2,4)

　　C)Right$(s,4)

　　D)Left$(s,4)

　　(22)某窗體中有一命令按鈕，在"窗體視圖"中單擊此命令按鈕，運(yùn)行另一個(gè)應(yīng)用程序。如果通過調(diào)用宏對(duì)象完成此功能，則需要執(zhí)行的宏操作是

　　A)RunApp

　　B)RunCode

　　C)RunMacro

　　D)RunSQL

　　(23)在VBA中，如果沒有顯式聲明或用符號(hào)來定義變量的數(shù)據(jù)類型，變量的默認(rèn)數(shù)據(jù)類型為

　　A)Boolean

　　B)Int

　　C)String

　　D)Variant

　　(24)假設(shè)某數(shù)據(jù)庫已建有宏對(duì)象"宏1"，"宏1"中只有一個(gè)宏操作SetValue，其中第一個(gè)參數(shù)項(xiàng)目"[Label0].[Caption]"，第二個(gè)參數(shù)表達(dá)式為"[Text0]"。窗體"fmTest"中有一個(gè)標(biāo)簽Label0和一個(gè)文本框Text0，現(xiàn)設(shè)置控件Text0的"更新后"事件為運(yùn)行"宏1"，則結(jié)果是

　　A)將文本框清空

　　B)將標(biāo)簽清空

　　C)將文本框中的內(nèi)容復(fù)制給標(biāo)簽的標(biāo)題，使二者顯示相同內(nèi)容

　　D)將標(biāo)簽的標(biāo)題復(fù)制到文本框，使二者顯示相同內(nèi)容

　　(25)要顯示格式為"頁碼/總頁數(shù)"的頁碼，應(yīng)當(dāng)設(shè)置文本框控件的控件來源屬性為

　　A)Page/Page

　　B)=Page/Pages

　　C)Page&"/"&Pages

　　D)=Page&"/"&Pages

　　(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"