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

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

2、Change）C. 調(diào)整大小 （Resize）D. 成為當(dāng)前 （Current）解析：解析：打開(kāi)窗體時(shí)，發(fā)生的事件依次為：打開(kāi)（Open）T加載（Load）宀調(diào)整大小（Resize）宀激活（Activate）宀成為當(dāng)前（Current），所以選項(xiàng) A 正確。3.下列選項(xiàng)中，與 VBA 中語(yǔ)句 DimVar%, sum!等價(jià)的是 （分?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)識(shí)為 示，所以選項(xiàng) D 正確。4.VBA 中一般采用 H

3、ungarian 符號(hào)法命名變量,下列代表復(fù)選框的字首碼是 （分?jǐn)?shù)： 2.00 ）A. ChkVB. CboC. cmdD. opt解析：解析：Hungarian 符號(hào)使用一組代表數(shù)據(jù)類型的碼。用小寫(xiě)字母作為變量名的前綴，“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)的位置，返回一個(gè)整

4、型數(shù)據(jù)。因此選項(xiàng) B 正確。6. 在 VBA 程序中，編程打開(kāi)窗體應(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)識(shí)為 Single ，用“1”表D. Command Open FormV解析：解析：在 VBA 中打開(kāi)窗體或報(bào)表對(duì)象應(yīng)該使用DoCmc 命令，所以選項(xiàng) D 正確。7. 調(diào)用下面子過(guò)程，消息框顯示的值是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 語(yǔ)句，還有賦值語(yǔ)句的知識(shí)點(diǎn)。首先，變量 x 賦值 10， y 賦值 100；if 語(yǔ)句 中的條件語(yǔ)句是 ymodx,只要 y 不被 x 整除，則條件為真，否則條件為假。這里y 可以被 x 整除，因此條件為假，執(zhí)行 else 后面的語(yǔ)句，即 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 ，步長(zhǎng)為默認(rèn)值 1，所以隨著循環(huán)的執(zhí)行， 初始值是逐漸“背離”終止值的，所以該循環(huán)結(jié)構(gòu)不會(huì)被執(zhí)行，循環(huán)語(yǔ)句執(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)條件語(yǔ)句為“假”時(shí)，才執(zhí)行循環(huán)體語(yǔ)句，如果循環(huán)條件語(yǔ)句為“真”，則結(jié)束循環(huán)。本題中變量y 的值為 1，循環(huán)條件語(yǔ)句“ y短語(yǔ)的變量，或當(dāng)在變量名稱后沒(méi)有附加類型說(shuō)明字符來(lái)指明隱含變量的數(shù)據(jù)類型時(shí)，默認(rèn)為 Variant( 變體) 數(shù)據(jù)類型，所以選項(xiàng) A 正確。18. 定義了數(shù)組 A(2t

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

9、 次后結(jié)束循環(huán)， 內(nèi)應(yīng)填入的語(yǔ)句是 x=1 Do x=x+2 Loop Until(分?jǐn)?shù)： 2.00 )A. x=7B. x=7VD. x7解析：解析：本題考查循環(huán)的基礎(chǔ)知識(shí)。題目要求循環(huán)執(zhí)行3 次結(jié)束，當(dāng)?shù)?3 次循環(huán)結(jié)束時(shí)，x 的值為 7,而 Until 循環(huán)的特點(diǎn)是當(dāng)條件為真的時(shí)候結(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í)行過(guò)程， 在每次循環(huán)之前， 會(huì)檢查循環(huán)條件表達(dá)式是否滿足 循 環(huán)體是在條件表達(dá)式成立的前提下，才會(huì)執(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)填入的語(yǔ)句是(分?jǐn)?shù)： 2.00 )A. m+1B. m+2VC. t+1D. t+2解析：解析：本題考查是 while 循環(huán)知識(shí)點(diǎn)。通過(guò) while 循環(huán)實(shí)現(xiàn)求取表達(dá)式的值，只要條件滿足， while 循環(huán)會(huì)一直繼續(xù)。通過(guò)觀察我們可以發(fā)現(xiàn)規(guī)律：while 的每次循環(huán) sum 會(huì)加一項(xiàng)（1+3+m）,該項(xiàng)比上一次數(shù)據(jù)項(xiàng)多出一個(gè)數(shù)字，該數(shù)字就是上個(gè)數(shù)據(jù)項(xiàng)最大值加2,即 m 的值，所以每次循環(huán) m 需要加 2。23. 下列代碼實(shí)現(xiàn)的功能是：若在窗體中一個(gè)名為 tNum 的文本框中輸入學(xué)號(hào)，則將“學(xué)生表”中對(duì)應(yīng)的“姓名”顯示在另一個(gè)名為 tNam

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

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

14、s . ReordCount，所以選項(xiàng) A 正確。25. 子過(guò)程 Plus 完成對(duì)當(dāng)前庫(kù)中“教師表”的工齡字段都加 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)該填寫(xiě)的語(yǔ)句是（分?jǐn)?shù)： 2.00 ）A. rsUpdateVB. WSUpdateC. fd UpdateD. dbUpdate解析：解析：本題中的， DoWhile 循環(huán)是對(duì)記錄集中的每一條記錄的“工齡”字段加 1，當(dāng)執(zhí)行更新操作 fd=fd+1 之后，都需要使用 rs . update 語(yǔ)句將所更新的記錄數(shù)據(jù)存儲(chǔ)到數(shù)據(jù)庫(kù)中，所以選項(xiàng)A 正確。26. 宏的功能不包括（分?jǐn)?shù)： 2.00 ）A. 自動(dòng)進(jìn)行數(shù)據(jù)校驗(yàn)VB. 打開(kāi)數(shù)據(jù)庫(kù)時(shí)自動(dòng)運(yùn)行C. 對(duì)數(shù)據(jù)進(jìn)行分組、計(jì)算、匯總和打印輸出D. 根據(jù)條件的不同

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

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