Access模擬試題三

1、四川省普通高校職教師資班和高職班對(duì)口招生統(tǒng)一考試信息技術(shù)一類Access模擬試題(三）（考試時(shí)間80分鐘，滿分150分） 學(xué)校：長(zhǎng)寧縣職業(yè)技術(shù)學(xué)校 班級(jí)： 姓名： 成績(jī)： 一、單項(xiàng)選擇題（每題2分，共40分）1. 要設(shè)置報(bào)表的頁(yè)碼，正確的操作區(qū)域是( )。A. 報(bào)表頁(yè)眉/報(bào)表頁(yè)腳 B. 頁(yè)面頁(yè)眉/頁(yè)面頁(yè)腳C. 組頁(yè)眉/組頁(yè)腳 D. 主體2. 以下控件中，可作為綁定型控件的是( )。A. 標(biāo)簽 B. 命令按鈕 C. 組合框 D. 圖像3. 以下報(bào)表不能完成的操作是( )。A. 數(shù)據(jù)排序B. 數(shù)據(jù)分組C. 數(shù)據(jù)匯總 D. 數(shù)據(jù)修改4. 以下不是報(bào)表視圖的是( )。A. 設(shè)計(jì)視圖B. 數(shù)據(jù)表視圖C.

2、 布局視圖 D. 打印預(yù)覽視圖5. 用來(lái)顯示窗體綁定數(shù)據(jù)源字段值的控件類型是( )。A. 綁定型 B. 未綁定性 C. 計(jì)算型 D. 關(guān)聯(lián)型6. 在報(bào)表向?qū)е校判虻淖侄螖?shù)量不得超過(guò)（ ）個(gè)A. 1 B. 2 C. 4 D. 107. 在窗體中可以包含一列或幾列數(shù)據(jù)，用戶只能選擇不能手動(dòng)輸入的控件是( )。A. 標(biāo)簽 B. 文本框 C. 組合框 D. 列表框8. 要使窗體上文本框內(nèi)輸入數(shù)據(jù)時(shí)達(dá)到“*”的效果，應(yīng)設(shè)置的屬性是( )。A. 輸入掩碼B. 密碼 C. 樣式 D. 記錄源9. 在窗體視圖中，要使窗體一頁(yè)顯示多條記錄，需要設(shè)置默認(rèn)視圖屬性為()。A. 單個(gè)窗體B. 連續(xù)窗體 C. 數(shù)據(jù)透

3、視表D. 分隔窗體10. 將窗體從設(shè)計(jì)視圖轉(zhuǎn)到窗體視圖，則首先觸發(fā)的事件是( )。A. Load事件 B. Open事件 C. Click事件 D. Timer事件11. 彈出消息框的宏操作是（ ）A. Msgbox B. DoCmd.MsgboxC. MessageBox D. DoCmd.MessageBox12. 創(chuàng)建宏時(shí)至少要定義一個(gè)宏操作，并要設(shè)置對(duì)應(yīng)的( )。A. 條件 B. 命令按鈕C. 操作參數(shù)D. 運(yùn)行方式13. 在VBA中，如果一行代碼過(guò)長(zhǎng)想要分兩行顯示，應(yīng)使用（ ）分隔A. 下劃線 B.冒號(hào) C.單引號(hào) D.不能分隔14. 如果要?jiǎng)?chuàng)建快捷鍵運(yùn)行宏，則需要將宏名設(shè)置為（ ）

4、A.AutoKeys B.Auto C.AutoExec D.ExecKeys15. 以下函數(shù)中，不是返回?cái)?shù)字的是（ ）A. Year B. Len C. Chr D. InStr 16. 假如消息框中彈出“確定”和“取消”按鈕，單擊取消按鈕后，Msgbox的返回值為：( )A. 1 B. 2 C. 3 D. 417. 函數(shù)Inputbox返回值的數(shù)據(jù)類型為( )。A. 字符型 B. 數(shù)字型 C. 日期時(shí)間型 D.視輸入而定18. 當(dāng)為cj變量輸入75以后，語(yǔ)句 IIf(cj>=80,”優(yōu)秀”,Iif(cj>=70,”良好”,IIF(cj>=60,”及格”,”不及格”) 所返

5、回的結(jié)果是（ ）A.優(yōu)秀 B. 良好 C. 及格 D. 不及格19. 有如下代碼：Private Sub Command1_Click()Static x As Integerx=0x=x+1End Sub當(dāng)點(diǎn)擊按鈕三次以后，x的值為：A. 0 B. 1 C. 2 D. 320. 下列Select.Case.End Slelect語(yǔ)句中，Case語(yǔ)句條件不合法的是( )A. 3,7,9 B. 5,Is>=8 C. 7 To 10 D. Is>=8 And Is<=12一、 多項(xiàng)選擇題（5×3=15分）21. 在窗體視圖中，能夠看到（ ）節(jié)的內(nèi)容A.窗體頁(yè)眉 B.窗體

6、頁(yè)腳 C.頁(yè)面頁(yè)眉 D.頁(yè)面頁(yè)腳22. 下列關(guān)于宏的敘述中，正確的有（ ）A. 可以使用宏組來(lái)管理一系列相關(guān)的宏B. Access 2010中的宏操作可以轉(zhuǎn)換為VBA代碼C. 在條件宏中，不能引用窗體中控件的值D. 宏不能修改其本身23. 以下運(yùn)算結(jié)果為真的有（ ）A、56 mod 3 2 >=2B、348 * 23>54 and 98 mod 3 =2C、89 mod 45 mod 24-52 >=0 or not 92 mod 3 >0D、not 26 mod 3>2 and 9*9=8124. 以下變量名合法的有（ ）A. Str-Name B. Case_

7、if C. 6A D. 變量125. 下列表達(dá)式中，可判斷x能夠被y整除的有（ ）A. Int(x / y)= x y B. x Mod y =0C. x / y = x y D. Fix(x / y) = x y二、 判斷題（10×2=20分）26. 報(bào)表中的組頁(yè)眉和組頁(yè)腳節(jié)可以單獨(dú)添加；27. 報(bào)表中的數(shù)據(jù)源可以來(lái)自一個(gè)表，也可以來(lái)自多個(gè)表；28. 報(bào)表是一種十分有用的工具，利用向?qū)?chuàng)建報(bào)表可以根據(jù)用戶的意愿直接創(chuàng)建出各種精美的報(bào)表；29. 在Access 2010中，窗體的視圖共5種：設(shè)計(jì)視圖、窗體視圖、數(shù)據(jù)透視表視圖、數(shù)據(jù)透視圖視圖和布局視圖；30. 在窗體運(yùn)行的過(guò)程中，可以

8、設(shè)置控件的屬性；31. 利用設(shè)計(jì)視圖創(chuàng)建窗體是最為靈活的一種方式，用戶可根據(jù)需要設(shè)計(jì)出各種類型的窗體；32. 在為宏設(shè)置條件時(shí)，一個(gè)條件只能執(zhí)行一個(gè)宏操作；33. 在窗體控件的事件屬性中可以使用宏組名.宏名的方式來(lái)調(diào)用宏組；34. 若變量dk定義為日期型，數(shù)據(jù)#301-1-5#可以對(duì)該變量賦值；35. 當(dāng)常量被定義后，還可以根據(jù)程序需要重新對(duì)其進(jìn)行直接賦值；三、 填空題。（20×2=40分）36. 要在報(bào)表上顯示格式為“4/總15頁(yè)”的頁(yè)碼，則計(jì)算控件的控件來(lái)源應(yīng)設(shè)置為_。37. 報(bào)表的數(shù)據(jù)源可以是表和_；38. 在Access 2010中，使用自動(dòng)創(chuàng)建的報(bào)表是_報(bào)表；39. 在報(bào)表

9、中，若要對(duì)“學(xué)號(hào)”進(jìn)行統(tǒng)計(jì)個(gè)數(shù)，應(yīng)設(shè)置文本框的數(shù)據(jù)來(lái)源的表達(dá)式為_；40. 計(jì)算型控件使用_作為數(shù)據(jù)源；41. _窗體將窗體中的一個(gè)顯示記錄按列分隔，每列的左邊顯示字段，右邊顯示字段內(nèi)容等；42. 要?jiǎng)?chuàng)建_窗體必須先設(shè)置數(shù)據(jù)源之間的關(guān)系；43. _是窗體上用于顯示數(shù)據(jù)、執(zhí)行操作、裝飾窗體的對(duì)象；44. 如果希望對(duì)所有的宏命令進(jìn)行調(diào)試，應(yīng)在宏設(shè)計(jì)器中單擊功能區(qū)“設(shè)計(jì)”選項(xiàng)卡上的_按鈕，然后再點(diǎn)擊運(yùn)行按鈕；45. 在VBA中要將數(shù)組的默認(rèn)下標(biāo)下限設(shè)置為1，應(yīng)在通用聲明區(qū)域編寫_語(yǔ)句；46. 函數(shù)表達(dá)式Fix(-7.2)的運(yùn)算結(jié)果為：_；47. 表達(dá)式0轉(zhuǎn)換成Access的表達(dá)式是_。48. 函數(shù)I

10、nStr（2,“學(xué)生學(xué)籍管理系統(tǒng)”，”學(xué)”）的結(jié)果是_。49. VBA中符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是：順序結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和_。；50. VBA語(yǔ)句Dim a% 中，聲明變量a的數(shù)據(jù)類型為_型。51. 如果某變量的取值只有真值或者假值，則應(yīng)該變量聲明為_數(shù)據(jù)類型；52. 有VBA語(yǔ)句str1 = ”52510” : x = Val(Mid(str1,1,2) + Left(str1,1) ，當(dāng)代碼運(yùn)行后x的結(jié)果為_；53. 在VBA中的通用聲明區(qū)域使用Dim或Private關(guān)鍵字的變量被稱為_變量；54. 在VBA中，TimerInterval（計(jì)時(shí)器間隔）屬性的時(shí)間單位是_；55. 在V

11、BA中，窗體的_事件會(huì)根據(jù)TimerInterval屬性所設(shè)置的時(shí)間間隔，重復(fù)執(zhí)行該事件的代碼。四、 綜合題（35分）56. 當(dāng)單擊按鈕Command0后，消息框輸出的內(nèi)容為：_（3分）Private Sub Command0_Click()Dim a As Integer, b As Integera = 10 : b = 10MsgBox fun(a, b) & "，" & bEnd SubFunction fun(ByVal m As Integer, n As Integer) As IntegerDim i As Integerfun = 1For

12、 i = 1 To m Step 3 fun = fun * iNext in = fun m * iEnd Function57. 程序填空(每空2分，共22分)。有表和窗體如圖所示，用于實(shí)現(xiàn)對(duì)用戶的登錄和注冊(cè)功能。（1） 登錄功能：如果輸入的賬號(hào)和密碼能夠與User表內(nèi)的記錄相匹配，則彈出“登錄成功！”的消息框，否則彈出“用戶名和密碼不正確！您還有n次嘗試機(jī)會(huì)”的消息框；如果錯(cuò)誤次數(shù)達(dá)到3次，則系統(tǒng)強(qiáng)制關(guān)閉窗體。 代碼如下：【登錄按鈕代碼】Private Sub Command0_Click()Dim UserAccount As String, UserPwd As String_ k

13、As IntegerUserAccount = Me.Text0UserPwd = Me.Text2If _("u_pwd", "user", "u_account='" & UserAccount & "'") = _ Then n = MsgBox("登錄成功！", vbInformation, "提示")Else k = _ n = MsgBox("用戶名或者密碼不正確！您還有" & 3 - k & &

14、quot;次嘗試機(jī)會(huì)。", vbCritical, "警告！") If _ Then MsgBox "錯(cuò)誤已達(dá)最大次數(shù)，系統(tǒng)將強(qiáng)制關(guān)閉窗體！" DoCmd.Close End IfEnd IfEnd Sub（2） 如下圖所示，該窗體實(shí)現(xiàn)的功能為用戶注冊(cè)，窗體中的四個(gè)文本框從上到下依次為Text0,Text2,Text4,Text6。 注冊(cè)功能描述如下：u 如果任意一個(gè)文本框內(nèi)容為空，則彈出消息框提示；u 在所有內(nèi)容都確保輸入的前提下，再次檢測(cè)兩次輸入的密碼是否一致，如果不一致，則彈出消息框提示；u 以上兩項(xiàng)都滿足的前提下，判斷賬號(hào)是否在user

15、表中存在，如果存在，則不允許保存，并彈出消息框提示“該賬號(hào)已經(jīng)存在！”，并輸出該賬號(hào)在user表中對(duì)應(yīng)的用戶姓名。u 只有滿足以上三項(xiàng)的全部條件，則向user表添加用戶信息?！咀?cè)按鈕代碼】Private Sub Command1_Click()If Nz(Me.Text0) = "" Or Nz(Me.Text2) = "" Or Nz(Me.Text4) = "" Or Nz(Me.Text6) = "" Then MsgBox "所有文本框的內(nèi)容不能為空！"Else If _ Then M

16、sgBox "兩次輸入的密碼不一致！" Else Dim db As Database Dim rs As Recordset Set db = _ Set rs = db._("select * from user where u_account='" & Me.Text0 & "'") If _ > 0 Then MsgBox "賬號(hào)已經(jīng)存在，注冊(cè)該賬號(hào)的用戶姓名為：" & _ Else Dim InsertSQL As String InsertSQL = "insert into user(u_account,u_pwd,u_name) values('" & Me.Text0 & "','" & Me.Text4 & "','" & Me.Text6 & "')" _ (InsertSQL) MsgBox "用戶信息注冊(cè)并保存成功！" End If End IfEnd IfEnd Sub58. 程序填空（10