2023年access計(jì)算機(jī)二級(jí)高仿題

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

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

1.表的基本操作

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

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

學(xué)號(hào)姓名性別入校日期生源專(zhuān)業(yè)編號(hào)

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

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

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

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

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

升序排列。

3.為成績(jī)表和課程表,創(chuàng)建一個(gè)名為“課程平均成績(jī)”的多表查詢(xún)，查詢(xún)各門(mén)課程的平均成

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

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

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

查詢(xún)”的對(duì)話(huà)框。

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

1.表的基本操作

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

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

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

學(xué)號(hào)姓名性別出生日期生源專(zhuān)業(yè)編號(hào)

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

S05002周美華女1990-7-10河北P(pán)05

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

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

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

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

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

序排列。

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

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

1.表的基本操作

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

提醒“輸入非法”；

2）在銷(xiāo)售部門(mén)表中添加以下兩條記錄：

部門(mén)編號(hào)部門(mén)名稱(chēng)類(lèi)別辦公電話(huà)負(fù)責(zé)人

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

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

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

2.建立一個(gè)名為“南海大學(xué)出版社”的查詢(xún)，查詢(xún)圖書(shū)信息表中“出版社名稱(chēng)”為“南海大

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

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

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

銷(xiāo)售單價(jià)）

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

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

提醒框。

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

書(shū)籍名稱(chēng)定價(jià)作者名

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

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

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

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

Checklac:宏

宏名I條件I操作

?CheckMacInputBox（"請(qǐng)輸入驗(yàn)證碼"）="abc"OpenTable

...StopMacro

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

1.表的基本操作

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

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

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

2）在參團(tuán)信息表中添加以下兩條記錄：

團(tuán)編號(hào)游客編號(hào)折扣

T30007100%

T30009100%

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

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

結(jié)果列依次為“團(tuán)號(hào)”、“線(xiàn)路名稱(chēng)”、“價(jià)格”、”行程天數(shù)”和“出發(fā)日期”，并按“行

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

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

結(jié)果列依次為“團(tuán)號(hào)”和“游客人數(shù)”。

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

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

名”和“折扣租

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

1.表的基本操作

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

字段格式為是/否。

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

汽車(chē)編號(hào)購(gòu)置日期型號(hào)單日出租定價(jià)

C092023-1-12DO052500

CIO2023-6-6DO02400

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

2.建立一個(gè)名為“大客車(chē)”的查詢(xún)，查詢(xún)汽車(chē)類(lèi)型表中大客車(chē)的信息,結(jié)果列依次為“型號(hào)”、

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

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

編號(hào)”、“汽車(chē)編號(hào)”、“出租日期”、“歸還日期”和“出租收入”。（出租收入=（歸還

日期-出租日期）*單日出租售價(jià)）

4.創(chuàng)建一個(gè)名為“汽車(chē)基本信息”的報(bào)表。運(yùn)用汽車(chē)類(lèi)型表、汽車(chē)表，記錄出平均單日出租

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

和“單日出租定價(jià)”。

第1題

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

下操作：

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

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

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

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

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

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

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

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

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

第1題

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

下操作：

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

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

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

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

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

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

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

Textl.Value=Combo1.Value

第1題

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

下操作：

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

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

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

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

的一半。

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

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

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

Image1.Left=Image1.Left/2

Image1.Top=Image1.Top/2

第1題

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

景區(qū)圖片

o八達(dá)嶺長(zhǎng)城

◎福建土樓

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

畢如下操作：

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

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

為2磅；

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

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

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

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

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

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

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

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

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

第1題

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

完畢如下操作：

1）設(shè)立窗體的標(biāo)題,設(shè)立窗體運(yùn)營(yíng)時(shí)自動(dòng)居中；

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

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

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

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

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

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

IfCheck1.Value=-1Then

Text1,Enab1ed=—1

Label1.Visible=-1

Else

Textl.Enabled=0

Labe11.Visible=0

EndIf

第2題

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

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

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

顯示提成金額。

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

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

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

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

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

(4)編程后，需打開(kāi)窗體和運(yùn)營(yíng)程序，并在運(yùn)營(yíng)后關(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)夾下打開(kāi)ACCESS數(shù)據(jù)庫(kù)ProgO230.mdb,按圖在窗體FormSum中，編

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

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

的立方和。

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

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

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

(4)編程后，需打開(kāi)窗體和運(yùn)營(yíng)程序，并在運(yùn)營(yíng)后關(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)夾下打開(kāi)ACCESS數(shù)據(jù)庫(kù)Prog0231.mdb,按圖在窗體FormConv中，

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

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

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

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

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

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

（4）編程后，需打開(kāi)窗體和運(yùn)營(yíng)程序,并在運(yùn)營(yíng)后關(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)夾下打開(kāi)ACCESS數(shù)據(jù)庫(kù)Prog0232.mdb,在窗體FormPick中，編寫(xiě)“提

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

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

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

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

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

(4)編程后，需打開(kāi)窗體和運(yùn)營(yíng)程序，并在運(yùn)營(yíng)后關(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)夾下打開(kāi)ACCESS數(shù)據(jù)庫(kù)Prog0233.mdb,按圖在窗體FormSec中，編

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

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

?J

"2X+1X三3，

Y=JX2—10WX<3。

3X

.II

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

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

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

(4)編程后，需打開(kāi)窗體和運(yùn)營(yíng)程序，并在運(yùn)營(yíng)后關(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)夾下打開(kāi)ACCESS數(shù)據(jù)庫(kù)Prog0329.mdb,其中具有Book表和窗體FormCo

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

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

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

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

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

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

PrivateSubCombolChange（）

…不得刪改本行第

DimstrSQLAsString

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

Setrs=NewADODB.Recordset

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

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

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

rs.Close

Setrs=Nothing

EndSub

第3題

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

讀者類(lèi)別教師V

平均借書(shū)數(shù)里5.25

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

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

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

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

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

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

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

PrivateSubCombolChange0

.不得刪改本行注稱(chēng)

DimrsAsADODB.Recordset

DimstrSQLAsString

DimaverageAsSingle

Setrs=NewADODB.Recordset

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

rs.OpenstrSQL,CurrentProject.Connection

average=rs「平均借書(shū)及里"）

Textl.Value=average

rs.Close

Setrs=Nothing

EndSub

第3題

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

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

功能：

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

提醒:訂單金額=(退房日期-入住日期)X單日房?jī)r(jià)。

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

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

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

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

DimsAsInteger

DimrsAsATODB.Recordset

Setrs=NewADODB.Recordset

DimstrSQLAsString

strSQL="select*fromHotelwhere訂單編號(hào)二'"&Combol.Value&

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

IfNotrs.EOF()Then

Text2.Value=單日房?jī)r(jià)”)

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

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

S=(rs(?退房日期?)-rs(“入住日期"))*rs("單日房?jī)r(jià)”)

Textl.Value二s