2023年access計算機二級高仿題

考試內(nèi)容分為選擇題15,操作題4,編程題3

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Acopr29.mdb,完畢如下操作:

1.表的基本操作

1）設(shè)立學(xué)生表“入校日期”字段的默認(rèn)值為“2023-9-1”;

2）在學(xué)生表中添加以下兩條記錄：

學(xué)號姓名性別入校日期生源專業(yè)編號

S1405001劉譯男2023-9-1福建P05

S1406002張雨女2023-9-1湖南P06

3）建立學(xué)生表與專業(yè)表之間的“參照完整性”關(guān)系

2.建立一個名為“青年教師”的查詢，查詢教師表中所有1976年后（含1976年）出生的

教師信息,結(jié)果列依次為“姓名”、“性別”、“出生日期”和“職稱”，并按“出生日期”

升序排列。

3.為成績表和課程表,創(chuàng)建一個名為“課程平均成績”的多表查詢，查詢各門課程的平均成

績，結(jié)果列依次為“課程名稱”和“平均成績”，并按“平均成績”升序排列。

4.創(chuàng)建一個名為“TeacherMac”的宏,彈出一個提醒信息為“顯示教師信息”的對話框，單

擊“擬定”按鈕，以只讀方式打開教師表;單擊“取消”按鈕，則彈出提醒信息為“退出

查詢”的對話框。

打開考生文獻(xiàn)夾下的ACCESS數(shù)據(jù)庫Acopr30.mdb,完畢如下操作:

1.表的基本操作

1）設(shè)立學(xué)生表“出生日期”字段有效性規(guī)則，只允許輸入1970年1月1日以后（包含

1970年1月1日）的日期，否則提醒“出生日期超過范圍”；

2）在學(xué)生表中添加以下兩條記錄：

學(xué)號姓名性別出生日期生源專業(yè)編號

S05001白云女1990-6-13安徽P05

S05002周美華女1990-7-10河北P05

3）建立學(xué)生表與成績表之間的“參照完整性”關(guān)系

2.建立一個名為“王姓講師情況”的查詢，查詢教師表中所有“王”姓講師的信息，結(jié)果列

依次為“教師編號”、“姓名”、“性別”和“出生日期”，并按“出生日期”升序排列。

3.為課程表，創(chuàng)建一個名為“各學(xué)期課程記錄”的匯總查詢，匯總查詢各個學(xué)期的課程門

數(shù)和學(xué)分之和，結(jié)果列依次為“學(xué)期”、“課程數(shù)量”和“學(xué)分總數(shù)”，并按“學(xué)期”升

序排列。

4.創(chuàng)建一個名為“專業(yè)信息”的宏，實現(xiàn)以下功能,彈出一個提醒信息為“顯示專業(yè)信息”

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Acorp31.mdb,完畢如下操作:

1.表的基本操作

1）設(shè)立銷售部門表“類別”字段的有效性規(guī)則，只允許輸入“零售”或“批發(fā)”，否則

提醒“輸入非法”；

2）在銷售部門表中添加以下兩條記錄：

部門編號部門名稱類別辦公電話負(fù)責(zé)人

P05網(wǎng)絡(luò)二部零售6699126吳啟明

P06批發(fā)二部批發(fā)6688503趙濤

3）建立銷售部門表與銷售員表之間的“參照完整性”關(guān)系

2.建立一個名為“南海大學(xué)出版社”的查詢，查詢圖書信息表中“出版社名稱”為“南海大

學(xué)出版社的圖書信息，結(jié)果列依次為“書籍名稱”、“定價”和“作者名”。

3.創(chuàng)建一個名為“訂單銷售額”的查詢，查詢訂單表中每筆訂單的銷售額情況，結(jié)果列依次

為“訂單編號”和“銷售額”，并按“銷售額”降序排列。（每筆訂單的銷售額=數(shù)量X

銷售單價）

4.創(chuàng)建一個名為“CheckMac”的宏,彈出一個提醒信息為“請輸入驗證碼”的輸入框，

當(dāng)輸入“abc”并單擊“擬定”按鈕時，顯示圖書信息表的內(nèi)容，否則彈出“驗證碼錯誤”

提醒框。

日南海大學(xué)出版社：選擇查詢

書籍名稱定價作者名

網(wǎng)絡(luò)安全22張濤

計算機應(yīng)用技術(shù)基礎(chǔ)22張克勤

網(wǎng)絡(luò)攻擊與防范33趙一清

操作系統(tǒng)原理—15劉麗

Checklac:宏

宏名I條件I操作

?CheckMacInputBox（"請輸入驗證碼"）="abc"OpenTable

...StopMacro

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Acorp32.mdb,完畢如下操作:

1.表的基本操作

1）設(shè)立導(dǎo)游表“性別”字段的有效性規(guī)則，只允許輸入“男”或“女”，否則提醒“輸

入非法”；設(shè)立參團信息表中的“團號”和“游客編號”為主鍵，“折扣”字段為

不帶小數(shù)的比例格式，默認(rèn)值為1。

2）在參團信息表中添加以下兩條記錄：

團編號游客編號折扣

T30007100%

T30009100%

3）建立旅行團表與導(dǎo)游表之間的“參照完整性”關(guān)系

2.建立一個名為“五天之內(nèi)旅行團”的查詢，查詢旅行團表中“行程天數(shù)”五天之內(nèi)的信息，

結(jié)果列依次為“團號”、“線路名稱”、“價格”、”行程天數(shù)”和“出發(fā)日期”，并按“行

程天數(shù)”升序排列。

3.創(chuàng)建一個名為“旅行團人數(shù)信息”的查詢，查詢參團信息表中每個團的總客人數(shù)情況,

結(jié)果列依次為“團號”和“游客人數(shù)”。

4.創(chuàng)建一個名為“旅行團信息”的報表。運用旅行團表、游客表和參團信息表，記錄出平均

折扣情況，選擇“組織”樣式，結(jié)果列依次為“線路名稱”、“價格”、“行程天數(shù)”、“姓

名”和“折扣租

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Acorp33.mdb,完畢如下操作：

1.表的基本操作

1）設(shè)立訂單表中的“用戶號”和“汽車編號”為主鍵，設(shè)立客戶表中的“是否VIP”

字段格式為是/否。

2）在汽車表中添加以下兩條記錄：

汽車編號購置日期型號單日出租定價

C092023-1-12DO052500

CIO2023-6-6DO02400

3）建立汽車表與訂單表之間的“參照完整性”關(guān)系

2.建立一個名為“大客車”的查詢，查詢汽車類型表中大客車的信息,結(jié)果列依次為“型號”、

“品牌”和“產(chǎn)地”。

3.創(chuàng)建一個名為“出租收入”的查詢，查詢訂單表中出租收入情況，結(jié)果列依次為“用戶

編號”、“汽車編號”、“出租日期”、“歸還日期”和“出租收入”。（出租收入=（歸還

日期-出租日期）*單日出租售價）

4.創(chuàng)建一個名為“汽車基本信息”的報表。運用汽車類型表、汽車表，記錄出平均單日出租

定價情況，選擇“組織”樣式,結(jié)果列依次為“型號”、“品牌”、“購置日期”、“汽車編號”

和“單日出租定價”。

第1題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫ProgO129.mdb，按圖在窗體FormInfo中完畢如

下操作：

1）設(shè)立窗體的標(biāo)題；

2）設(shè)立列表框Lis11和List2的列表項；

3）設(shè)立標(biāo)簽Labell的文本格式為12號黑體；

4）編寫命令按鈕Commandl的Click事件代碼，根據(jù)列表框選中的項目，在Lab

e11中顯示相應(yīng)的內(nèi)容。

注：(1)不得刪改兩行**'###########################"之間的代碼；

(2)不得刪改模塊basO129中的代碼；

(3)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

Label1.Caption="您選擇的是"&Listl.Value&List2.Value&"的服裝"

第1題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫ProgO130.mdb,按圖在窗體F。rmRace中完畢如

下操作：

1)設(shè)立窗體的標(biāo)題；

2)設(shè)立組合框Combo1的列表項；

3)設(shè)立文本框Textl的文本格式為14號隸書，居中對齊；

4)編寫組合框Comb01的Click事件代碼，將組合框中的項目顯示在文本框中。

注：(1)不得刪改兩行'"###########################"之間的代碼；

(2)不得刪改模塊basO13O中的代碼；

(3)編程后，需打開窗體和運營程序,并在運營后關(guān)閉程序窗口。

Textl.Value=Combo1.Value

第1題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫ProgO13l.mdb,按圖在窗體FormPic中完畢如

下操作：

1)設(shè)立窗體的標(biāo)題為“移動圖片”；

2)修改圖像控件Imagel的屬性：設(shè)立圖片為K:\Fjexam95\Zebra.bmp;

3)設(shè)立命令按鈕Commandl的標(biāo)題為“移動”，且為12號黑體；

4)編寫命令按鈕Command1的C1ick事件代碼,實現(xiàn)圖片的左上角位置縮小為本來

的一半。

注:(1)不得刪改兩行“'###########################“之間的代碼；

(2)不得刪改模塊bas0132中的代碼；

(3)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

Image1.Left=Image1.Left/2

Image1.Top=Image1.Top/2

第1題

原人類文化遺產(chǎn)GJ3?

景區(qū)圖片

o八達(dá)嶺長城

◎福建土樓

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0132.mdb,按圖在窗體FormScenery中完

畢如下操作：

4)設(shè)立窗體的標(biāo)題為“人類文化遺產(chǎn)”；

5)修改圖像控件Imagel的屬性：設(shè)立縮放模式為“拉伸”，邊框樣式為實線，邊框?qū)挾?/p>

為2磅；

6)選項組控件Framel的關(guān)聯(lián)標(biāo)簽Labe13的標(biāo)題為“景區(qū)圖片”，字號為12；

7)編寫選項按鈕Optionl的MouseDown事件代碼,設(shè)立圖像控件Image1的圖片

為"K：\Fjexam95\GreatWa11.bmp”；

8)編寫選項按鈕Option2的MouseDown事件代碼,設(shè)立圖像控件Imagel的圖片

為"K:\Fjexam95\Tulou.bmp"。

注:(1)不得刪改兩行"，###########################”之間的代碼；

(2)不得刪改模塊basO132中的代碼；

(3)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

Imagel.Picture="K:\Fjexam95\GreatWall.bmp

第1題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫ProgO133.mdb,按圖在窗體FormCheck中

完畢如下操作：

1）設(shè)立窗體的標(biāo)題,設(shè)立窗體運營時自動居中；

2）設(shè)立文本框TextI的默認(rèn)值為“測試”，文本格式為12號黑體；

3）編寫復(fù)選框Checkl的Click事件代碼,根據(jù)復(fù)選框是否選中，設(shè)立文本框Textl是否

可用和標(biāo)簽Labe11是否可見。

注：（1）不得刪改兩行'"###########################"之間的代碼；

（2）不得刪改模塊bas0133中的代碼；

（3）編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

IfCheck1.Value=-1Then

Text1,Enab1ed=—1

Label1.Visible=-1

Else

Textl.Enabled=0

Labe11.Visible=0

EndIf

第2題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0229.mdb,按圖在窗體FormIncom中，

編寫“計算”按鈕的Click事件代碼，實現(xiàn)如下功能：

在文本框Text1中輸入銷售額，根據(jù)下表中銷售額區(qū)間相應(yīng)的提成比例，在Text2中

顯示提成金額。

銷售額(元)>100005000?99993000"4999<3000

提成(元)銷售額xo.l5銷售額X0.1銷售額X0.050

注:(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行“'###########################"之間的代碼;

(3)不得刪改模塊bas0229中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

DimxAsSingle

x=Text1.Value

Ifx>=10000Then

Text2.Value=0.15*x

E1selfx>=5000Andx<=9999Then

Text2.Va1ue=0.1*x

E1seIfx>=3000Andx<=4999Then

Text2.Value=0.05*x

Else

Text2.Value=0

EndIf

第2題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫ProgO230.mdb,按圖在窗體FormSum中，編

寫“求和”按鈕的Click事件代碼，實現(xiàn)如下功能：

在文本框Textl中輸入一個不大于100的數(shù)值n,在Text2中顯示出1-n之間所有整數(shù)

的立方和。

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行,(,###########################"之間的代碼；

(3)不得刪改模塊bas0231中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

DimnAs1nteger,sumAsLong,iAsInteger

n=Textl.Value

sum=0

Ifn<=100Then

Fori=1TonStep1

sum=sum+iA3

Nexti

EndIf

Text2.Value=sum

第2題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0231.mdb,按圖在窗體FormConv中，

編寫“轉(zhuǎn)換”按鈕的Click事件代碼，實現(xiàn)如下功能：

在文本框Textl中輸入數(shù)值，根據(jù)Comb。1組合框的值,實現(xiàn)英寸與厘米之間的互相

轉(zhuǎn)換，在Text21中顯示結(jié)果。（1英寸=2.54厘米）

注:（1）不得增、刪窗體上的控件，不得更改控件的名稱；

（2）不得刪改兩行“'###########################"之間的代碼；

（3）不得刪改模塊basO231中的代碼；

（4）編程后，需打開窗體和運營程序,并在運營后關(guān)閉程序窗口。

DimaAsSing1e,bAsSingle

a=Text1.Value

IfCombo1.Va1ue="英寸轉(zhuǎn)換厘米”Then

b=a*2.54

ElseIfCombo1.Value="厘米轉(zhuǎn)換英寸"Then

b=a/2.54

EndIf

Text2.Value=b

第2題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0232.mdb,在窗體FormPick中，編寫“提

取"按鈕的Click事件代碼，實現(xiàn)如下功能：

根據(jù)文本框Textl中輸入的字符串，順序提取其中的英文字母并顯示在Labe12中。

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行"，###########################"之間的代碼；

(3)不得刪改模塊basO232中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

DimsAsString,iAsInteger

s=Textl.Value

Fori=1ToLen(s)Step1

IfMid(s,i,1)>="A"AndMid(s,i,1)<="Z”Then

Labe12.Caption=Label2.Caption&Mid(s,i,1)

ElselfMid(s,i,1)>="a"AndMid(s,i,1)<="z"Then

Labe12.Caption=Label2.Caption&Mid(s,i,1)

EndIf

Next

第2題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0233.mdb,按圖在窗體FormSec中，編

寫“Y=”按鈕的Click事件代碼，實現(xiàn)如下操作：

按輸入的X值，根據(jù)以下分段函數(shù)計算Y的值。

?J

"2X+1X三3，

Y=JX2—10WX<3。

3X

.II

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行“I###########################"之間的代碼；

(3)不得刪改模塊basO233中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

DimxAsSingle,yAsSing1e

x=Textl.Value

SelectCasex

CaseIs>=3

y=2*x+1

CaseIs>=0

y=x"2—1

CaseIs<0

y=3*x

EndSe1ect

Text2.Va1ue=y

第3題

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0329.mdb,其中具有Book表和窗體FormCo

unto在FormCount窗體中，補充Combo1組合框的Change事件代碼，實現(xiàn)如下功能:

根據(jù)選擇的出版社，顯示該出版社的圖書種類數(shù)量。

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行"，###########################"之間的代碼；

(3)不得刪改模塊bas0329中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

PrivateSubCombolChange（）

…不得刪改本行第

DimstrSQLAsString

DinrsAsAJ011B.Recordset'本行需補充代碼，定義記錄集對象（補會畢務(wù)必刪除"[]H）

Setrs=NewADODB.Recordset

strSQL="selectcount（*）as圖書數(shù)fromBookwhere出版社:"&Combol.Value&"

rs.OpenstrSQL,C理晡roject.Connection住行繇匐璃出當(dāng)前就星屋創(chuàng)建連黃（補充我畢翎跚港“）

Textl.Value=rs（"圖書數(shù)"）’本行勒卜夫代禮蔣窘聲毅顯示差文本稅ext仲（界充完畢務(wù)必刪除“【】”）

rs.Close

Setrs=Nothing

EndSub

第3題

童|讀者平均借書數(shù)量

讀者類別教師V

平均借書數(shù)里5.25

在考生文獻(xiàn)夾下打開ACCESS數(shù)據(jù)庫Prog0330.mdb,其中具有Book表和窗體For

mAvgo在FormAvg窗體中，補充ComboI組合框的Change事件代碼，實現(xiàn)如下功能:

根據(jù)選擇的讀者類別，顯示該類別讀者的平均借書數(shù)量。

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行“'###########################"之間的代碼；

(3)不得刪改模塊bas0329中的代碼；

(4)編程后，需打開窗體和運營程序，并在運營后關(guān)閉程序窗口。

PrivateSubCombolChange0

.不得刪改本行注稱

DimrsAsADODB.Recordset

DimstrSQLAsString

DimaverageAsSingle

Setrs=NewADODB.Recordset

strSQL="SELECTavg（借書數(shù)里）as平均借書數(shù)里from讀者信‘稀息舞wher補e類速別二'翳"&耦Com翳bol.委Valu矗e&麟"

rs.OpenstrSQL,CurrentProject.Connection

average=rs「平均借書及里"）

Textl.Value=average

rs.Close

Setrs=Nothing

EndSub

第3題

打開考生文獻(xiàn)夾下的ACCESS數(shù)據(jù)庫Prog0331.mdb,其中具有Hotel表和窗體

FoimHote1。在FormHotel窗體中，補充Combo1組合框的Change事件代碼，實現(xiàn)如下

功能：

根據(jù)選擇的訂單編號，顯示該訂單的已有信息，計算該訂單金額。

提醒:訂單金額=(退房日期-入住日期)X單日房價。

注：(1)不得增、刪窗體上的控件，不得更改控件的名稱；

(2)不得刪改兩行“'###########################"之間的代碼;

(3)不得刪改模塊basO331中的代碼；

(4)編程后，需打開窗體和運營程序,并在運營后關(guān)閉程序窗口。

DimsAsInteger

DimrsAsATODB.Recordset

Setrs=NewADODB.Recordset

DimstrSQLAsString

strSQL="select*fromHotelwhere訂單編號二'"&Combol.Value&

rs.OpenstrSQL,CurrentProject.Connection/2,2，本行富

IfNotrs.EOF()Then

Text2.Value=單日房價”)

Text3.Value=rs「A住曰期")

Text4.Value=rs("遺］日魴")

S=(rs(?退房日期?)-rs(“入住日期"))*rs("單日房價”)

Textl.Value二s