國家二級ACCESS機(jī)試選擇題(VBA編程)模擬試卷2

1、國家二級 ACCES 機(jī)試選擇題（VBA 編程）模擬試卷 2（ 總分： 60.00 ，做題時間： 90 分鐘 ）選擇題（總題數(shù)：30，分?jǐn)?shù)：60.00）1. 在表達(dá)式中引用窗體上的控件值。下列選項(xiàng)中，語法格式正確的是（分?jǐn)?shù)： 2.00 ）A. Foms 窗體名 控件名 B. Forms- 窗體名 - 控件名 C. Forms!窗體名!控件名VD. Forms 窗體名 控件名 解析：解析：引用窗體上某控件值的語法格式為：Forms!窗體名!控件名或Forms!窗體名!控件名,所以選項(xiàng) C 正確。2. 打開窗體后,下列事件中首先發(fā)生的是（分?jǐn)?shù)： 2.00 ）A. 加載 （Load）VB. 改變 （

2、Change）C. 調(diào)整大小 （Resize）D. 成為當(dāng)前 （Current）解析：解析：打開窗體時，發(fā)生的事件依次為：打開（Open）T加載（Load）宀調(diào)整大?。≧esize）宀激活（Activate）宀成為當(dāng)前（Current），所以選項(xiàng) A 正確。3.下列選項(xiàng)中，與 VBA 中語句 DimVar%, sum!等價的是 （分?jǐn)?shù)： 2.00 ）A. Dim Var As DoubleB. Dim Var As IntegerC. Dim Var As SingleD. Dim Var As Integer解析：解析：整數(shù)型數(shù)據(jù)類型標(biāo)識為 示，所以選項(xiàng) D 正確。4.VBA 中一般采用 H

3、ungarian 符號法命名變量,下列代表復(fù)選框的字首碼是 （分?jǐn)?shù)： 2.00 ）A. ChkVB. CboC. cmdD. opt解析：解析：Hungarian 符號使用一組代表數(shù)據(jù)類型的碼。用小寫字母作為變量名的前綴，“Chk代表復(fù)選框，“ Cbo 代表組合框，“ cmd 代表命令按鈕，“ opt 代表選項(xiàng)按鈕，所以選項(xiàng)A 正確。5. 下列屬于 VBA 子字符串檢索函數(shù)的是（分?jǐn)?shù)： 2.00 ）A. LenB. InStrVC. RightD. Replace解析：解析： InStr（str1 ， str2） 函數(shù)是檢索子字符串 str2 在字符串 strl 中最早出現(xiàn)的位置，返回一個整

4、型數(shù)據(jù)。因此選項(xiàng) B 正確。6. 在 VBA 程序中，編程打開窗體應(yīng)使用的命令是（分?jǐn)?shù)： 2.00 ）A. CmdOpen FormB. Do Open FormC. DoCmd Open Form， sum As Single， sum As Double， sum As Double，sum As SingleVInteger ，用“”表示；單精度數(shù)據(jù)類型標(biāo)識為 Single ，用“1”表D. Command Open FormV解析：解析：在 VBA 中打開窗體或報表對象應(yīng)該使用DoCmc 命令，所以選項(xiàng) D 正確。7. 調(diào)用下面子過程，消息框顯示的值是Sub SFun（） Dim x，

5、 y， m x=10： y=100 Ify Modx Then m=x Else m=yEnd If MsgBox m End Sub（分?jǐn)?shù)： 2.00 ）A. XB. YC. 10D. 100V解析：解析：本題考查的是 if 語句，還有賦值語句的知識點(diǎn)。首先，變量 x 賦值 10， y 賦值 100；if 語句 中的條件語句是 ymodx,只要 y 不被 x 整除，則條件為真，否則條件為假。這里y 可以被 x 整除，因此條件為假，執(zhí)行 else 后面的語句，即 m=y=10Q 所以應(yīng)選擇選項(xiàng) D。8. 下列循環(huán)結(jié)構(gòu)中，循環(huán)體被執(zhí)行的次數(shù)是Dim i As Integer ， t As Int

6、eger Fori=9 to 0 t=t+1 Next i（分?jǐn)?shù)： 2.00 ）A. 0 次VB. 1 次C. 4 次D. 5 次解析：解析： F0rNext 循環(huán)結(jié)構(gòu)中，循環(huán)變量初始值應(yīng)該隨著循環(huán)的執(zhí)行，逐漸向終止值“靠攏”，這 樣才能結(jié)束循環(huán)。 本題中循環(huán)便變量 i 的初始值為 9，終止值為 0 ，步長為默認(rèn)值 1，所以隨著循環(huán)的執(zhí)行， 初始值是逐漸“背離”終止值的，所以該循環(huán)結(jié)構(gòu)不會被執(zhí)行，循環(huán)語句執(zhí)行0 此，選項(xiàng) A 正確。9. 有如下事件程序，運(yùn)行該程序后輸出結(jié)果是 Private Sub Command0_Click（） Dim x As Integer， y AsInteger

7、x=1： y=0 Do Until y=25 y=y+x*x ： x=x+1 Loop MsgBoxx= x， y=y End Sub（分?jǐn)?shù)： 2.00 ）A. x=1，y=0VB. x=4 ， y=25C. x=5 ， y=30D. 輸出其他結(jié)果解析：解析：在 Do UntilLoop 循環(huán)結(jié)構(gòu)中，只有當(dāng)循環(huán)條件語句為“假”時，才執(zhí)行循環(huán)體語句，如果循環(huán)條件語句為“真”，則結(jié)束循環(huán)。本題中變量y 的值為 1，循環(huán)條件語句“ y短語的變量，或當(dāng)在變量名稱后沒有附加類型說明字符來指明隱含變量的數(shù)據(jù)類型時，默認(rèn)為 Variant( 變體) 數(shù)據(jù)類型，所以選項(xiàng) A 正確。18. 定義了數(shù)組 A(2t

8、o13) ，則該數(shù)組元素個數(shù)為(分?jǐn)?shù)： 2.00 )A. 11B. 12VC. 15D. 10解析：解析：數(shù)組 A(2t013)，下標(biāo)從 2 開始，到 13 結(jié)束，共 12 個元素，所以選項(xiàng) B 正確。19. VBA 中采用 Hungarian 符號法命名變量，下列代表子報表的字首碼是(分?jǐn)?shù)： 2.00 )A. subVB. RptC. FmtD. txt解析：解析：Hungarian 符號使用一組代表數(shù)據(jù)類型的碼。用小寫字母作為變量名的前綴，“sub”代表子窗體/子報表，“ Rpt代表報表，“ Fret 代表窗體，“ txt ”代表文本框，所以選項(xiàng)A 正確。20. 運(yùn)行程序，要求循環(huán)執(zhí)行 3

9、 次后結(jié)束循環(huán)， 內(nèi)應(yīng)填入的語句是 x=1 Do x=x+2 Loop Until(分?jǐn)?shù)： 2.00 )A. x=7B. x=7VD. x7解析：解析：本題考查循環(huán)的基礎(chǔ)知識。題目要求循環(huán)執(zhí)行3 次結(jié)束，當(dāng)?shù)?3 次循環(huán)結(jié)束時，x 的值為 7,而 Until 循環(huán)的特點(diǎn)是當(dāng)條件為真的時候結(jié)束循環(huán)，故此條件應(yīng)該是x=7,選項(xiàng) C 正確。21. 運(yùn)行下列程序，結(jié)果是 Private Sub Command0_Click() f0=1 k=1 Do While k f=f0+f1 f0=f1 f1=fk=k+1 Loop MsgBoxf= f End Sub(分?jǐn)?shù)： 2.00 )A. f=5VB.

10、f=7C. f=8D. f=13解析：解析：本題考查的是 dowhile 循環(huán)的執(zhí)行過程， 在每次循環(huán)之前， 會檢查循環(huán)條件表達(dá)式是否滿足 循 環(huán)體是在條件表達(dá)式成立的前提下，才會執(zhí)行。本題k=5，循環(huán)體執(zhí)行 5 次，第 5 次結(jié)束之后，f=5，k=6不滿足再次循環(huán)的條件，所以最終 f=5 ，所以選擇選項(xiàng) A。22. 下列程序的功能是計(jì)算：sum=1+(1+3)+(1+3+5)+.+(1+3+5+.+39) Private Sub Command_Click()t=0 m=1 sum=0 Do t=t+m sum=sum+t m= Loop While m=39 MsgBoxSum= sum

11、End Sub 為保證程序正 確完成上述功能，空白處 應(yīng)填入的語句是(分?jǐn)?shù)： 2.00 )A. m+1B. m+2VC. t+1D. t+2解析：解析：本題考查是 while 循環(huán)知識點(diǎn)。通過 while 循環(huán)實(shí)現(xiàn)求取表達(dá)式的值，只要條件滿足， while 循環(huán)會一直繼續(xù)。通過觀察我們可以發(fā)現(xiàn)規(guī)律：while 的每次循環(huán) sum 會加一項(xiàng)（1+3+m）,該項(xiàng)比上一次數(shù)據(jù)項(xiàng)多出一個數(shù)字，該數(shù)字就是上個數(shù)據(jù)項(xiàng)最大值加2,即 m 的值，所以每次循環(huán) m 需要加 2。23. 下列代碼實(shí)現(xiàn)的功能是：若在窗體中一個名為 tNum 的文本框中輸入學(xué)號，則將“學(xué)生表”中對應(yīng)的“姓名”顯示在另一個名為 tNam

12、e 文本框中。 Pfivme Sub tNurn_AfterUpdate（） Me!tName=（ 姓名，學(xué)生 表， 學(xué)號= Me!TNum） End Sub則程序 處應(yīng)該填寫的是（分?jǐn)?shù)： 2.00 ）A. DLookupVB. LookupC. DFindD. IIf解析：解析：根據(jù)題意，處的代碼應(yīng)實(shí)現(xiàn)的功能是在”課程表”中查詢出“課程編號”等于tNum 文本框中數(shù)據(jù)的“課程名稱，此DLookup 函數(shù)有此功能。DLookup 函數(shù)的格式為：DLookup（表達(dá)式，記錄集，條件式 ）。其中表達(dá)式用來指定要查詢的字段，即題中的”課程名稱”。記錄集用來指定要查詢的范圍，即題中的“課程表”。條件式

13、用來指定查詢條件，即題中的“課程編號 =” MeltNum“ ”，所以選擇選項(xiàng)A。24. 下面過程輸出記錄集的記錄個數(shù)。 Sub GetRecNum0Dim rs As Object Set rs=MeRecordset MsgBox End Sub程序空包處 應(yīng)該填寫的是（分?jǐn)?shù)： 2.00 ）A. rsRecordCountVB. RecordCountC. rs CountD. rs Record解析： 解析： 題目中對象變量 rs 返回了當(dāng)前窗體的 RecordSet 屬性記錄集的引用， 那么通過訪問對象變量 rs 的屬性 ReordCount 就可以得到該記錄集的記錄個數(shù)，引用方法為r

14、s . ReordCount，所以選項(xiàng) A 正確。25. 子過程 Plus 完成對當(dāng)前庫中“教師表”的工齡字段都加 1 的操作。 Sub Plus（） Dim ws As DAOWorkspace Dimdb As DAO Database Dim rs As DAO Recordset Dim fd As DAO Field Set db=CurrentDb（） Set rs=dbOpenRecordset（ 教師表 ） Set fd=rs Fields（ 工齡） Do While Not rs EOF rsEdit fd=fd+1 rs MoveNext Loop rs Close db

15、Close Set rs=Nothing Set db=Nothing End Sub程序 處應(yīng)該填寫的語句是（分?jǐn)?shù)： 2.00 ）A. rsUpdateVB. WSUpdateC. fd UpdateD. dbUpdate解析：解析：本題中的， DoWhile 循環(huán)是對記錄集中的每一條記錄的“工齡”字段加 1，當(dāng)執(zhí)行更新操作 fd=fd+1 之后，都需要使用 rs . update 語句將所更新的記錄數(shù)據(jù)存儲到數(shù)據(jù)庫中，所以選項(xiàng)A 正確。26. 宏的功能不包括（分?jǐn)?shù)： 2.00 ）A. 自動進(jìn)行數(shù)據(jù)校驗(yàn)VB. 打開數(shù)據(jù)庫時自動運(yùn)行C. 對數(shù)據(jù)進(jìn)行分組、計(jì)算、匯總和打印輸出D. 根據(jù)條件的不同

16、執(zhí)行不同的操作 解析：解析：宏是一個或多個操作的集合，其中每個操作都可以實(shí)現(xiàn)特定的功能，使用簡單，可以提高工 作效率?？梢栽O(shè)置自動運(yùn)行或根據(jù)需要來進(jìn)行數(shù)據(jù)統(tǒng)計(jì)計(jì)算以及根據(jù)需要設(shè)計(jì)條件宏，但宏不具有數(shù)據(jù)校 驗(yàn)的功能，所以選擇選項(xiàng) A。27. 要在報表中設(shè)置篩選條件以限制來自表中的記錄，應(yīng)使用的宏命令是（分?jǐn)?shù)： 2.00 ）A. RequeryB. FindRecordC. ApplyFilterVD. FindNextRecord解析：解析：“ ApplyFilter ”宏操作可以對表、窗體或報表應(yīng)用篩選、查詢或“SQL WHERE 子句，以便限制或排序表、基礎(chǔ)表以及窗體或報表的查詢中的記錄，所

17、以選項(xiàng)C 正確。28. 打開報表后，下列事件中首先發(fā)生的是(分?jǐn)?shù)： 2.00 )A. 獲得焦點(diǎn) (GotFocus)B. 改變 (Change)C. 激活 (Activate)VD. 成為當(dāng)前 (Current)解析：解析： Current 事件是在窗體打開時，以及焦點(diǎn)從一條記錄移動到另一條記錄時發(fā)生：Activate 是當(dāng)一個對象成為活動窗口時發(fā)生的事件；Change 是指文本框或組合框的部分內(nèi)容改變時發(fā)生的事件；GotFocus 指窗體或控件獲得焦點(diǎn)時發(fā)生的事件。以上四個事件，只有激活是打開窗體后最先發(fā)生的。29. 下列選項(xiàng)中，不屬于 Access 內(nèi)置函數(shù)的是(分?jǐn)?shù)： 2.00 )A. ChooseB. IIfC. SwitchD. IfV解析：解析：IIF、Switch 和