(19)在過程定義中有語句：

　　Private Sub GetData(ByRef f As Integer)

　　其中"ByRef"的含義是

　　A)傳值調(diào)用

　　B)傳址調(diào)用

　　C)形式參數(shù)

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

　　(20)可以作為窗體記錄源的是

　　A)表

　　B)查詢

　　C)Select語句

　　D)表、查詢或Select語句

　　(21)在課程表中要查找課程名稱中包含"計算機(jī)"的課程，對應(yīng)"課程名稱"字段的正確條件表達(dá)式是

　　A)"計算機(jī)"

　　B)"*計算機(jī)*"

　　C)Like "*計算機(jī)*"

　　D)Like "計算機(jī)"

　　(22)在下列關(guān)于宏和模塊的敘述中，正確的是

　　A)模塊是能夠被程序調(diào)用的函數(shù)

　　B)通過定義宏可以選擇或更新數(shù)據(jù)

　　C)宏或模塊都不能是窗體或報表上的事件代碼

　　D)宏可以是獨(dú)立的數(shù)據(jù)庫對象，可以提供獨(dú)立的操作動作

　　(23)在已建雇員表中有"工作日期"字段，下圖所示的是以此表為數(shù)據(jù)源創(chuàng)建的"雇員基本信息"窗體。

　　假設(shè)當(dāng)前雇員的工作日期為"1998-08-17"，若在窗體"工作日期"標(biāo)簽右側(cè)文本框控件的"控件來源"屬性中輸入表達(dá)式：=Str(Month([工作日期]))+ "月"，則在該文本框控件內(nèi)顯示的結(jié)果是

　　A)Str(Month(Date()))+"月"

　　B)"08"+"月"

　　C)08月

　　D)8月

　　(24)在使用報表設(shè)計器設(shè)計報表時，如果要統(tǒng)計報表中某個字段的全部數(shù)據(jù)，應(yīng)將計算表達(dá)式放在

　　A)組頁眉/組頁腳

　　B)頁面頁眉/頁面頁腳

　　C)報表頁眉/報表頁腳

　　D)主體

　　(25)要改變窗體上文本框控件的數(shù)據(jù)源，應(yīng)設(shè)置的屬性是

　　A)記錄源

　　B)控件來源

　　C)篩選查閱

　　D)默認(rèn)值

　　(26)On Error Goto 0語句的含義是

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

　　B)取消錯誤處理

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

　　D)退出系統(tǒng)

　　(27)VBA中用實(shí)際參數(shù)a和b調(diào)用有參過程Area(m,n)的正確形式是

　　A)Area m,n

　　B)Area a,b

　　C)Call Area(m,n)

　　D)Call Area a,b

　　(28)下列四種形式的循環(huán)設(shè)計中，循環(huán)次數(shù)最少的是

　　A)a = 5 : b = 8

　　Do

　　a = a + 1

　　Loop While a < b

　　B)a = 5 : b = 8

　　Do

　　a = a + 1

　　Loop Until a < b

　　C)a = 5 : b = 8

　　Do Until a < b

　　b = b + 1

　　Loop

　　D)a = 5 : b = 8

　　Do Until a > b

　　a = a + 1

　　Loop

　　(29)下列數(shù)據(jù)類型中，不屬于VBA的是

　　A)長整型

　　B)布爾型 http://ks.eeeigo.com

　　C)變體型

　　D)指針型

　　(30)在已建窗體中有一命令按鈕(名為Command1)，該按鈕的單擊事件對應(yīng)的VBA代碼為：

　　Private Sub Command1_Click()

　　subT.Form.RecordSource = "select * from 雇員"

　　End Sub

　　單擊該按鈕實(shí)現(xiàn)的功能是

　　A)使用select命令查找"雇員"表中的所有記錄

　　B)使用select命令查找并顯示"雇員"表中的所有記錄

　　C)將subT窗體的數(shù)據(jù)來源設(shè)置為一個字符串

　　D)將subT窗體的數(shù)據(jù)來源設(shè)置為"雇員"表

　　(31)假定有如下的Sub過程：

　　sub sfun(x As Single, y As Single)

　　t=x

　　x=t/y

　　y=t Mod y

　　End Sub

　　在窗體上添加一個命令按鈕(名為Command1)，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim a as single

　　Dim b as single

　　a=5

　　b=4

　　sfun(a,b)

　　MsgBox a & chr(10)+chr(13) & b

　　End Sub

　　打開窗體運(yùn)行后，單擊命令按鈕，消息框的兩行輸出內(nèi)容分別為

　　A)1和1

　　B)1.25和1

　　C)1.25和4

　　D)5和4

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

　　Private Sub Command1_Click()

　　Dim i, j, x

　　For i = 1 To 20 Step 2

　　x = 0

　　For j = i To 20 Step 3

　　x = x + 1

　　Next j

　　Next i

　　Text1.Value = Str(x)

　　End Sub

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

　　A)1

　　B)7

　　C)17

　　D)400

　　(33)在窗體上添加一個命令按鈕(名為Command1)，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　For i=1 To 4

　　x=4

　　For j=1 To 3

　　x=3

　　For k=1 To 2

　　x=x+6

　　Next k

　　Next j

　　Next i

　　MsgBox x

　　End Sub

　　打開窗體后，單擊命令按鈕，消息框的輸出結(jié)果是

　　A)7

　　B)15

　　C)157

　　D)538

　　(34)如下程序段定義了學(xué)生成績的記錄類型：由學(xué)號、姓名和三門課程成績(百分制)組成。

　　Type Stud

　　no As Integer

　　name As String

　　score (1 to 3) As Single

　　End Type

　　若對某個學(xué)生的各個數(shù)據(jù)項進(jìn)行賦值，下列程序段中正確的是

　　A)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score = 78,88,96

　　B)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score = 78,88,96

　　C)Dim S As Stud

　　Stud.no = 1001

　　Stud.name = "舒宜"

　　Stud.score(1) = 78

　　Stud.score(2) = 88

　　Stud.score(3) = 96

　　D)Dim S As Stud

　　S.no = 1001

　　S.name = "舒宜"

　　S.score(1) = 78

　　S.score(2) = 88

　　S.score(3) = 96

　　(35)在窗體中添加一個名稱為Command1的命令按鈕，然后編寫如下事件代碼：

　　Private Sub Command1_Click()

　　s="ABBACDDCBA"

　　For I=6 To 2 Step -2

　　x=Mid(s,I,I)

　　y=Left(s,I)

　　z=Right(s,I)

　　z=x & y & z

　　Next I

　　MsgBox z

　　End Sub

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

　　A)AABAAB

　　B)ABBABA

　　C)BABBA

　　D)BBABBA