2025年計(jì)算機(jī)二級(jí)Access數(shù)據(jù)庫(kù)程序設(shè)計(jì)秋季培訓(xùn)試題及答案考試時(shí)間：______分鐘總分：______分姓名：______一、選擇題（每小題2分，共30分）1.在關(guān)系模型中，用來(lái)唯一標(biāo)識(shí)實(shí)體元組的屬性或?qū)傩越M稱為（）。A.關(guān)鍵字B.外部關(guān)鍵字C.主屬性D.候選關(guān)鍵字2.以下哪個(gè)不是數(shù)據(jù)庫(kù)三級(jí)模式結(jié)構(gòu)中的層次？（）A.概念模式B.內(nèi)模式C.外模式D.物理模式3.在Access數(shù)據(jù)庫(kù)中，用于存儲(chǔ)大量文本或二進(jìn)制數(shù)據(jù)字段的數(shù)據(jù)類型是（）。A.文本B.日期/時(shí)間C.附件D.是/否4.以下哪個(gè)操作不屬于數(shù)據(jù)完整性約束？（）A.實(shí)體完整性B.參照完整性C.用戶定義完整性D.邏輯完整性5.在Access中，用于創(chuàng)建選擇查詢的視圖是（）。A.設(shè)計(jì)視圖B.數(shù)據(jù)表視圖C.SQL視圖D.數(shù)據(jù)透視表視圖6.以下SQL語(yǔ)句中，用于創(chuàng)建表的語(yǔ)句是（）。A.CREATEVIEWB.CREATEINDEXC.CREATETABLED.CREATEFORM7.在Access中，若要使子表中的記錄自動(dòng)地根據(jù)相關(guān)聯(lián)的主表中的記錄而更新，應(yīng)設(shè)置主表和子表之間的關(guān)系屬性中的（）。A.查詢參照完整性B.更新參照完整性C.刪除參照完整性D.忽略參照完整性8.以下哪個(gè)控件通常用于在用戶之間提供反饋信息？（）A.文本框B.標(biāo)簽C.框架D.提示框9.在VBA中，用于聲明變量的關(guān)鍵字是（）。A.DimB.VariableC.ConstD.Public10.在VBA中，若要在代碼塊中結(jié)束當(dāng)前過(guò)程并返回調(diào)用它的過(guò)程，應(yīng)使用（）語(yǔ)句。A.ExitB.EndC.ReturnD.ExitSub/ExitFunction（根據(jù)上下文，通常寫具體形式）11.以下哪個(gè)VBA運(yùn)算符的優(yōu)先級(jí)最高？（）A.*B./C.+D.=12.在Access中，用于存儲(chǔ)精確小數(shù)的字段數(shù)據(jù)類型是（）。A.數(shù)字（單精度）B.數(shù)字（雙精度）C.數(shù)字（小數(shù)）D.日期/時(shí)間13.以下SQL語(yǔ)句中，用于刪除表記錄的語(yǔ)句是（）。A.DELETEB.REMOVEC.DROPD.ERASE14.在VBA中，要訪問(wèn)當(dāng)前記錄的“姓名”字段（假設(shè)字段名為Name），可以使用（）表達(dá)式。A.Forms!FormName!NameB.Forms!FormName!Recordset!NameC.Forms!FormName!Recordset.NameD.Me.Name15.在Access中，報(bào)表的數(shù)據(jù)源可以是（）。A.表B.查詢C.表或查詢D.SQL語(yǔ)句二、填空題（每空2分，共20分）1.關(guān)系模型中，實(shí)體之間的聯(lián)系通常有種，分別是一對(duì)一、______和______。2.Access數(shù)據(jù)庫(kù)中，用于存儲(chǔ)貨幣值的數(shù)據(jù)類型是______。3.SQL語(yǔ)句中，用于連接多個(gè)表的子句是______。4.在VBA中，要聲明一個(gè)長(zhǎng)整型變量，可以使用______關(guān)鍵字。5.在Access中，為了防止用戶輸入不符合要求的數(shù)據(jù)，可以使用______控件或數(shù)據(jù)有效性規(guī)則。6.若要在一個(gè)查詢中同時(shí)包含來(lái)自兩個(gè)不同表的數(shù)據(jù)，通常需要使用______查詢。7.在VBA編程中，用于暫時(shí)中斷代碼執(zhí)行，并允許用戶查看當(dāng)前變量值的語(yǔ)句是______。8.Access中的窗體通常有三種基本類型：______窗體、______窗體和______窗體。9.語(yǔ)句`Ifx>10Theny=1Elsey=0`是VBA中的______結(jié)構(gòu)。10.在Access中，要?jiǎng)?chuàng)建一個(gè)包含所有員工姓名和部門名稱的查詢，通常需要使用______操作。三、操作題（共50分）1.表設(shè)計(jì)（15分）某學(xué)校需要建立一個(gè)數(shù)據(jù)庫(kù)來(lái)管理教師信息。請(qǐng)?jiān)O(shè)計(jì)一個(gè)名為“教師表”（Teacher）的結(jié)構(gòu)，要求包含以下字段：*教師編號(hào)（TeacherID）：文本類型，長(zhǎng)度為8，設(shè)置為主鍵。*姓名（Name）：文本類型，長(zhǎng)度為20。*性別（Gender）：是/否類型。*職稱（Title）：文本類型，長(zhǎng)度為10。*出生日期（BirthDate）：日期/時(shí)間類型。*聯(lián)系電話（Phone）：文本類型，長(zhǎng)度為15。*確定哪些字段可以作為外部關(guān)鍵字與其他表建立關(guān)系（說(shuō)明理由），并為教師表設(shè)置適當(dāng)?shù)淖侄螌傩裕ㄈ缭O(shè)置出生日期不能為空，聯(lián)系電話可以為空等）。2.SQL查詢（15分）假設(shè)有兩個(gè)表：“學(xué)生表”（Student，包含字段：StudentID,StudentName,ClassID）和“課程表”（Course，包含字段：CourseID,CourseName,TeacherID）。請(qǐng)編寫SQL語(yǔ)句完成以下查詢：*查詢選修了“數(shù)據(jù)庫(kù)原理”課程（假設(shè)CourseName為'數(shù)據(jù)庫(kù)原理'）的所有學(xué)生的姓名和課程名稱。（要求使用內(nèi)連接JOIN）*查詢每個(gè)班級(jí)的學(xué)生人數(shù)。（要求使用GROUPBY子句）*查詢沒(méi)有聯(lián)系電話的教師的信息。（要求使用ISNULL）3.VBA編程（20分）假設(shè)有一個(gè)Access窗體名為“學(xué)生信息錄入”，其中包含以下控件：*文本框：txtStudentID（學(xué)生編號(hào)），txtStudentName（學(xué)生姓名），txtClassID（班級(jí)編號(hào)），txtPhone（聯(lián)系電話）*命令按鈕：btnSave（保存數(shù)據(jù)）*窗體級(jí)變量：DimdbAsDAO.Database*請(qǐng)編寫btnSave按鈕的單擊事件（Click）代碼，實(shí)現(xiàn)以下功能：*在“學(xué)生表”（Student）中查找是否存在該學(xué)生編號(hào)（txtStudentID）。*如果存在，更新該學(xué)生的姓名、班級(jí)編號(hào)和聯(lián)系電話。*如果不存在，向“學(xué)生表”中插入一條新記錄，包含學(xué)生編號(hào)、姓名、班級(jí)編號(hào)和聯(lián)系電話。*代碼中需要包含錯(cuò)誤處理機(jī)制，以防止數(shù)據(jù)庫(kù)操作失敗。*操作完成后，提示用戶“數(shù)據(jù)已保存”。---試卷答案一、選擇題1.D解析：候選關(guān)鍵字是能夠唯一標(biāo)識(shí)實(shí)體元組的屬性或?qū)傩越M，關(guān)鍵字是主屬性或候選關(guān)鍵字。2.D解析：數(shù)據(jù)庫(kù)三級(jí)模式結(jié)構(gòu)包括概念模式、外模式、內(nèi)模式。3.C解析：附件類型用于存儲(chǔ)大量文本或二進(jìn)制數(shù)據(jù)。4.D解析：數(shù)據(jù)完整性約束包括實(shí)體完整性、參照完整性和用戶定義完整性。5.A解析：設(shè)計(jì)視圖是創(chuàng)建和編輯選擇查詢的常用視圖。6.C解析：CREATETABLE語(yǔ)句用于創(chuàng)建表。7.B解析：更新參照完整性確保子表中引用的值在主表中更新時(shí)也會(huì)相應(yīng)更新。8.D解析：提示框（MsgBox）通常用于在用戶之間提供反饋信息。9.A解析：Dim是VBA中用于聲明變量的關(guān)鍵字。10.D解析：ExitSub和ExitFunction是用于退出子程序和函數(shù)過(guò)程的語(yǔ)句。11.D解析：賦值運(yùn)算符（=）的優(yōu)先級(jí)最低，其他運(yùn)算符優(yōu)先級(jí)更高。12.C解析：數(shù)字（小數(shù)）類型用于存儲(chǔ)精確小數(shù)。13.A解析：DELETE語(yǔ)句用于刪除表記錄。14.D解析：Me表示當(dāng)前窗體，可以直接訪問(wèn)其控件和記錄集。15.C解析：報(bào)表的數(shù)據(jù)源可以是表或查詢。二、填空題1.一對(duì)多解析：關(guān)系模型中，實(shí)體之間的聯(lián)系有三種：一對(duì)一、一對(duì)多、多對(duì)多。2.貨幣解析：貨幣是Access中用于存儲(chǔ)貨幣值的數(shù)據(jù)類型。3.JOIN解析：JOIN子句用于在SQL查詢中連接多個(gè)表。4.Long解析：Long關(guān)鍵字用于聲明長(zhǎng)整型變量。5.數(shù)據(jù)有效性解析：數(shù)據(jù)有效性控件或規(guī)則用于防止用戶輸入不符合要求的數(shù)據(jù)。6.連接解析：連接查詢用于同時(shí)包含來(lái)自兩個(gè)或多個(gè)不同表的數(shù)據(jù)。7.Debug.Print解析：Debug.Print語(yǔ)句用于在立即窗口中輸出信息，常用于調(diào)試。8.數(shù)據(jù)表式、窗體式、數(shù)據(jù)透視表式解析：Access窗體有三種基本類型：數(shù)據(jù)表式、窗體式和數(shù)據(jù)透視表式。9.If...Else解析：Ifx>10Theny=1Elsey=0是VBA中的If...Else條件結(jié)構(gòu)。10.聯(lián)接解析：要?jiǎng)?chuàng)建包含所有員工姓名和部門名稱的查詢，通常需要使用聯(lián)接操作。三、操作題1.表設(shè)計(jì)*字段名稱：TeacherID數(shù)據(jù)類型：文本長(zhǎng)度：8屬性：主鍵*字段名稱：Name數(shù)據(jù)類型：文本長(zhǎng)度：20*字段名稱：Gender數(shù)據(jù)類型：是/否*字段名稱：Title數(shù)據(jù)類型：文本長(zhǎng)度：10*字段名稱：BirthDate數(shù)據(jù)類型：日期/時(shí)間屬性：不能為空*字段名稱：Phone數(shù)據(jù)類型：文本長(zhǎng)度：15屬性：可以為空*外部關(guān)鍵字：TeacherID理由：教師編號(hào)可以作為外部關(guān)鍵字與其他表（如課程表、授課表）建立關(guān)系，唯一標(biāo)識(shí)每位教師。*其他屬性：*Name：不能為空*Title：可以為空（可能存在未定職位的教師）*Gender：不能為空*BirthDate：不能為空2.SQL查詢*```sqlSELECTStudent.StudentName,Course.CourseNameFROMStudentINNERJOINCourseONStudent.CourseID=Course.CourseIDWHERECourse.CourseName='數(shù)據(jù)庫(kù)原理';```解析：使用INNERJOIN連接Student表和Course表，根據(jù)學(xué)生選修課程ID關(guān)聯(lián)，WHERE子句篩選出課程名稱為“數(shù)據(jù)庫(kù)原理”的記錄。*```sqlSELECTStudent.ClassID,COUNT(*)AS學(xué)生人數(shù)FROMStudentGROUPBYStudent.ClassID;```解析：使用GROUPBY子句按班級(jí)編號(hào)對(duì)學(xué)生進(jìn)行分組，COUNT(*)統(tǒng)計(jì)每組的學(xué)生數(shù)量。*```sqlSELECT*FROM教師表WHERE聯(lián)系電話ISNULL;```解析：使用ISNULL判斷聯(lián)系電話字段是否為空，查詢出沒(méi)有聯(lián)系電話的教師記錄。（假設(shè)表名為“教師表”）3.VBA編程```vbaPrivateSubbtnSave_Click()OnErrorGoToErrHandlerDimrsAsDAO.RecordsetSetdb=CurrentDbSetrs=db.OpenRecordset("SELECT*FROM學(xué)生表WHEREStudentID='"&txtStudentID&"'",dbOpenDynaset)IfNotrs.EOFThen'更新現(xiàn)有記錄rs.Editrs!StudentName=txtStudentNamers!ClassID=txtClassIDrs!Phone=txtPhoners.UpdateElse'插入新記錄Setrs=db.OpenRecordset("學(xué)生表",dbOpenDynaset,dbAppendOnly)rs.AddNewrs!StudentID=txtStudentIDrs!StudentName=txtStudentNamers!ClassID=txtClassIDrs!Phone=txtPhoners.UpdateEndIfMsgBox"數(shù)據(jù)已保存",vbInformationExitSubErrHandler:MsgBox"操作失敗: