Access課后習題答案

第一章：

1、選擇題:

題號12345678910

答案CCDAABCBAA

題號11121314151617181920

答案DABDDBAADB

填空題：

1、數(shù)據(jù)庫管理系統(tǒng)2、選擇、投影、聯(lián)接3、實體、屬性、聯(lián)系

4、查詢、窗體、頁、宏、模塊5、層次、關系、網(wǎng)狀

2.8練習

i.選擇題

（I）“教學管理”數(shù)據(jù)庫中有學生表、課程表和選課表，為了有效地反映這三張表中

數(shù)據(jù)之間的聯(lián)系，在創(chuàng)建數(shù)據(jù)庫時應設置【D】。（2012年3月計算機二級Access試題）

A.默認值B.有效性規(guī)則

C.索引D.表之間的關系

（2）如果輸入掩碼設置為“L”，則在輸入數(shù)據(jù)的時候，該位置上可以接受的合法輸

入是［C］（＞（2012年3月計算機二級Access試題）

A.必須輸入字母或數(shù)字B.可以輸入字母、數(shù)字或者空格

C.必須輸入字母A?ZD.任何字符

（3）在Access數(shù)據(jù)庫中，用來表示實體的是【B］。（2012年3月計算機二級Access

試題）

A.表B.記錄

C.字段D.域

（4）可以插入圖片的字段類型是【C】。（2011年9月計算機二級Access試題）

A.文本B.備注

C.OLE對象D.超鏈接

（5）在Access數(shù)據(jù)庫的表設計視圖中，不能進行的操作是【D］。（2012年3月

計算機二級Access試題）

A.修改字段類型B.設置索引

C.增加字段D.刪除記錄

（6）若要求在文本框中輸入文本時達到密碼“*”的顯示效果，則應該設置的屬性是

[C]。（2010年3月計算機二級Access試題）

A.默認值B.有效性文本

C.輸入掩碼D.密碼

（7）輸入掩碼字符“C”的含義是【D】（2011年9月計算機二級Access試題）

A.必須輸入字母或數(shù)字

B.可以選擇輸入字母或數(shù)字

C.必須輸入一個任意的字符或一個空格

D.可以選擇輸入任意的字符或一個空格

（8）下列關于索引的敘述中，錯誤的是【A]o（2012年3月計算機二級Access

試題）

A.可以為所有的數(shù)據(jù)類型建立索引

B.可以提高對表中記錄的查詢速度

C.可以加快對表中記錄的排序速度

D.可以基于單個字段或多個字段建立索引

（9）Access中，設置為主鍵的字段[C】。（2010年3月計算機二級Access試題）

A.不能設置索引

B.可設置為“有（有重復）”索引

C.系統(tǒng)自動設置索引

D.可設置為“無”索引

（10）輸入掩碼字符“&”的含義是【C】。（2010年3月計算機二級Access試題）

A.必須輸入字母或數(shù)字

B.可以選擇輸入字母或數(shù)字

C.必須輸入一個任意的字符或?個空格

D.可以選擇輸入任意的字符或一個空格

（11）下列對數(shù)據(jù)輸入無法起到約束作用的是【C】。（2010年3月計算機二級Access

試題）

A.輸入掩碼

B.有效性規(guī)則

C.字段名稱

D.數(shù)據(jù)類型

(12)在Access中對表進行"篩選"操作的結(jié)果是【A］。(2011年3月計算機二級

Access試題)

A.從數(shù)據(jù)中挑選出滿足條件的記錄

B.從數(shù)據(jù)中挑選出滿足條件的記錄并生成一個新表

C.從數(shù)據(jù)中挑選出滿足條件的記錄并輸出到一個報表中

D.從數(shù)據(jù)中挑選出滿足條件的記錄并顯示在一個窗體中

2.填空題

(1)在Access數(shù)據(jù)庫中，表是由表結(jié)構(gòu)和表記錄組成。(2011

年9月計算機二級Access試題)

(2)在學生管理的關系數(shù)據(jù)庫中，存取?個學生信息的數(shù)據(jù)單位是記錄。(2010

年3月計算機二級Access試題)

(3)在Access中，如果不想顯示數(shù)據(jù)表中的某些字段，可以使用的操作命令

是selecto(2010年3月計算機二級Access試題)

(4)假設學生表已有年級、專業(yè)、學號、姓名、性別和生日6個屬性，其中可以作為

主關鍵字的是學號。(2012年3月計算機二級Access試題)

3.8練習題

1.選擇題

(1)杳詢”書名”字段中包含"等級考試"字樣的記錄，應該使用的條件是【D】。(2011年3月計算

機二級Access試題)

A.Like”等級考試"B.Like”*等級考試”

C.Like”等級考試*"D.Like"*等級考試*”

(2)若查找某個字段中以字母A開頭且以字母Z結(jié)尾的所有記錄，則條件表達式應設置為【C】。

(2012年3月計算機二級Access試題)

A.Like"A$ZMB.Like"A#Z"

C.LikeHA*Z"D.Like,'A?Zn

（3）教師表的“選擇查詢”設計視圖如下，則查詢結(jié)果是【D］。（2012年3月計算機二級Access

試題）

圖3.76選擇查詢設計視圖

A.顯示教師的職稱、姓名和同名教師的人數(shù)

B.顯示教師的職稱、姓名和同樣職稱的人數(shù)

C.按職稱的順序分組顯示教師的姓名

D.按職稱統(tǒng)計各類職稱的教師人數(shù)

（4）利用對話框提示用戶輸入查詢條件，這樣的查詢屬于【B］。（2010年3月計算機二級Access

試題）

A.選擇查詢B.參數(shù)查詢

C.操作查詢D.SQL查詢

（5）或在查詢條件中使用了通配符“！”，它的含義是［B］（2011年9月計算機二級Access試

題）

A.通配任意長度的字符B.通配不在括號內(nèi)的任意字符

C.通配方括號內(nèi)列出的任一單個字D.錯誤的使用方法

（6）在教師表中“職稱”字段可能的取值為：教授、副教授、講師和助教，要查找職稱為教授或副教

授的教師，錯誤的語句是［C］o（2012年3月計算機二級Access試題）

A.SELECT*FROM教師表WHERE（InStr（［職稱］，“教授”）<>0）;

B.SELECT*FROM教師表WHERE（Right。職稱］,2）="教授”）；

C.SELECT*FROM教師表WHERE（［職稱］="教授”）;

D.SELECT*FROM教師表WHERE（InStr（［職稱］，“教授"）=1OrInStr（［職稱］，“教授”）=2）;

（7）假設''公司”表中有編號、名稱、法人等字段，查找公司名稱中有“網(wǎng)絡”二字的公司信息，正

確的命令是【D】。（2010年3月計算機二級Access試題）

A.SELECT*FROM公司FOR名稱=H*網(wǎng)絡*”

B.SELECT*FROM公司FOR名稱LIKE”*網(wǎng)絡*”

C.SELECT*FROM公司W(wǎng)HERE名稱="*網(wǎng)絡*”

D.SELECT*FROM公司W(wǎng)HERE名稱LIKE”*網(wǎng)絡*”

（8）在SQL語言的SELECT語句中，用于指明檢索結(jié)果排序的子句是【D（2011年9月計算

機二級Access試題）

A.FROMB.WHILE

C.GROUPBYD.ORDERBY

（9）有商品表內(nèi)容如下：[B]（2011年9月計算機二級Access試題）

表3.4商品表

部門號商品號商品名稱單價數(shù)量產(chǎn)地

40101A牌電風扇20010廣東

40104A牌微波爐35010廣東

20105C牌傳真機100020上海

40202A牌電冰箱30002廣東

301041B牌計算機600010廣東

30204C牌計算機1000010廣東

執(zhí)行SQL命令：

SELECT部門號,MAX（單價*數(shù)量）FROM商品表GROUPBY部門號；

查詢結(jié)果的記錄數(shù)是

A.1B.3

C.4D.10

（10）若要將“產(chǎn)品”表中所有供貨商是“ABC”的產(chǎn)品單價下調(diào)50,則正確的SQL語句是【B】。（2011

年3月計算機二級Access試題）

A.UPDATE產(chǎn)品SET單價=50WHERE供貨商="ABC”

B.UPDATE產(chǎn)品SET單價=單價-50WHERE供貨商="ABC”

C.UPDATEFROM產(chǎn)品SET單.價=50WHERE供貸商二“ABC”

D.UPDATEFROM產(chǎn)品SET單價=單價-50WHERE供貨商="ABC”

2.填空題

（1）Access的杳詢分為5種類型，分別是選擇查詢、參數(shù)查詢、操作查詢、SQL杳詢和交叉表杳

詢。（2012年3月計算機二級Access試題）

（2）在Access查詢的條件表達式中要表示任意單個字符，應使用通配符（2011年3月計算機

二級Access試題）

（3）在SELECT語句中，HAVING子句必須與"oupbv子句一起使用。（2011年3月計算

機二級Access試題）

（4）在工資表中有姓名和工資等字段，若要求查詢結(jié)果按照工資降序排列，可使用的SQL語句是：

SELECT姓名，工資FROM工資表ORDERBY工資desc。（2012年3月計算機：級Access

試題）

4.6練習

i.選擇題

（1）在窗體中為了更新數(shù)據(jù)表中的字段，要選擇相關的控件，正確的控件選擇是[C]?（2012年

3月計算機二級Access試題）

A.只能選擇綁定型控件

B.只能選擇計算型控件

C.可以選擇綁定型或計算型控件

D.可以選擇綁定型、非綁定型或計算型控件

（2）已知教師表“學歷”字段的值只可能是四項（博士、碩士、本科或其他）之一，為了方便輸入數(shù)據(jù)，

設計窗體時，學歷對應的控件應該選擇【D（2012年3月計算機二級Access試題）

A.標簽B.文本框C.復選框D.組合框

（3）下列屬性中，屬于窗體的“數(shù)據(jù)”類屬性的是【A（2011年9月計算機二級Access試題）

A.紀錄源B.自動居中C.獲得焦點D.記錄選擇器

（4）在窗體設計工具箱中，代表組合框的圖標是【D]。（2008年9月計算機二級Access試題）

A.G>]B.2C.—JD.3

（5）要改變窗體上文本框控件的輸出內(nèi)容，應設置的屬性是【C工（2008年9月計算機二級Access

試題）

A.標題B.杳詢條件C.控件來源D.記錄源

（6）能接受數(shù)值型數(shù)據(jù)輸入的窗體控件是【BL（2008年4月計算機二級Access試題）

A.圖形B.文本框C.標簽D.命令按鈕

（7）在窗體中，用來輸入或編輯字段數(shù)據(jù)的交互控件是[A]c（2008年4月計算機二級Access

試題）

A.文本框控件B.標簽控件C.復選框控件D.列表框控件

2.填空題

（1）窗體由多個部分組成，每個部分稱為一個節(jié)。（2007年9月計算機二級Access試題）

（2）Access數(shù)據(jù)庫中，如果在窗體上輸入的數(shù)據(jù)總是取自表或查詢中的字段數(shù)據(jù)，或者取自某固定

內(nèi)容的數(shù)據(jù)，可以使用組合框控件來完成。（2006年9月計算機二級Access試題）

5.9練習

i.選擇題

(1)在報表設計的工具欄中，用于修飾版面以達到更好顯示效果的控件是[B]o(2012年3月計

算機二級Access試題)

A.直線和多邊形B.直線和矩形

C.直線和圓形D.矩形和圓形

(2)在報表中要顯示格式為“共N頁，第N頁”的頁碼，正確的頁碼格式設置是[D]?(2011年3月

計算機二級Access試題)

A.="共"+Pages+”頁，第"+Page+"頁"

B.="共B[Pages]+"頁,第"+[Page]+"頁"

C.="共"&Pages&"頁,第"&Page&"頁"

D.="共"&[Pages]&"頁,第"&[Page]&”頁"

(3)在報收設計過程中，不適合添加的控件是【D工(2010年3月計算機二級Access試題)

A.標簽控件B.圖形控件C.文本框控件D.選項組控件

(4)下列關于報表的敘述中，正確的是【B(2009年3月計算機二級Access試題)

A.報表只能輸入數(shù)據(jù)

B.報表只能輸出數(shù)據(jù)

C.報表可以輸入和輸出數(shù)據(jù)

D.報表不能輸入和輸出數(shù)據(jù)

(5)要實現(xiàn)報表按某字段分組統(tǒng)計輸出，需要設置的是【BJo(2009年3月計算機二級Access

試題)

A.報表頁腳B.該字段的組頁腳

C.主體D.頁面頁腳

(6)Access報表對象的數(shù)據(jù)源可以是【C(2008年9月計算機二級Access試題)

A.表、查詢和窗體B.表和杳詢

C.表、查詢和SQL命令D.表、查詢和報表

(7)如果要在整個報表的最后輸出信息，需要設置【B(2007年9月計算機二級Access試題)

A.頁面頁腳B.報表頁腳

C.頁面頁眉D.報表頁眉

（8）在報表中，要計算“數(shù)學”字段的最高分，應將控件的“控件來源”屬性設置為【A（2007

年9月計算機二級Access試題）

A.=Max（[數(shù)學]）B.Max（數(shù)學）

C.=Max［數(shù)學］D.=Max（數(shù)學）

（9）在報表設計時，如果只在報表最后一頁的主體內(nèi)容之后輸出規(guī)定的內(nèi)容，則需要設置的是

[B（2007年4月計算機二級Access試題）

A.報表頁眉B.報表頁腳

C.頁面頁眉D.頁面頁腳

（10）若要在報表每一頁底部都輸出信息，，需要設置的是【A（2006年9月計算機二級Access

試題）

A.頁面頁腳B.報表頁腳

C.頁面頁眉D.報表頁眉

2.填空題

（1）在報表中要顯示格式為“第N頁”的頁碼，頁碼格式設置是：="第"&[page]&“頁”。（2011年9

月計算機二級Access試題）

（2）報表記錄分組操作時，首先要選定分組字段，在這些字段上值相同的記錄數(shù)據(jù)歸為同一

組。（2007年4月計算機二級Access試題）

6.5練習

i.選擇題

（1）數(shù)據(jù)庫中可以被另存為數(shù)據(jù)訪問頁的對象是[C].（2012年3月計算機二級Access試題）

A.窗體B.報表C.表和查詢D.以上均可

（2）在數(shù)據(jù)訪問頁的工具箱中為了插入一段滾動的文字應該選擇的圖標是[B].（2009年3月計

算機二級Access試題）

A.3B.」C.當I）.金

（3）將Access數(shù)據(jù)庫數(shù)據(jù)發(fā)布到Intemet網(wǎng)上，可以通過【C】。（2007年9月計算機二級Access

試題）

A.查詢B.窗體C.數(shù)據(jù)訪問頁D.報表

2.填空題

（1）Access中產(chǎn)生的數(shù)據(jù)訪問頁會保存在獨立文件中，其文件格式是htm。（2010年9月計

算機二級Access試題）

（2）使用向?qū)?chuàng)建數(shù)據(jù)訪問頁時,在確定分組級別步驟中最多可設置4個分組字段。（2010年

3月計算機二級Access試題）

（3）數(shù)據(jù)訪問頁有兩種視圖，它們是頁視圖和設計視圖。（2008年9月計算機二級Access試

題）

7.5練習

i.選擇題

（1）在宏設計窗口中有“宏名”、“條件”、“操作”和"備注”等列，其中不能省略的是[B]?（2012年

3月計算機二級Access試題）

A.宏名B.操作C.條件D.備注

（2）宏操作不能處理的是【B1（2012年3月計算機二級Access試題）

A.打開報表B.對錯誤進行處理C.顯示提示信息D.打開和關閉窗體

2.填空題

(1)在宏中引用窗體控件的命令格式是forms!窗體名稱!控件名稱。(2012年3月計算機二

級Access試題)

8.9練習

i.選擇題

(1)下列關于VBA事件的敘述中，正確的是【A(2012年3月計算機二級Access試題)

A.觸發(fā)相同的事件可以執(zhí)行不同的事件過程

B.每個對象的事件都是不相同的

C.事件都是由用戶操作觸發(fā)的

D.事件可以由程序員定義

(2)下列不屬于類模塊對象基本特征的是【D(2012年3月計算機二級Access試題)

A.事件B.屬性C.方法D.函數(shù)

(3)用來測試當前讀寫位置是否達到文件木尾的函數(shù)是【A(2012年3月計算機二級Access試題)

A.EOFB.FileLenC.LenD.LOF

(4)下列表達式中，能夠保留變量x整數(shù)部分并進行四舍五入的是【C(2012年3月計算機二級

Access試題)

A.Fix(x)B.Rnd(x)C.Round(x)D.Int(x)

(5)運行下列過程，當輸入一組數(shù)據(jù)：10,20,50,80,40,30,90,10(),60,70.輸出的結(jié)果應

該是【A(2012年3月計算機二級Access試題)

Subpl()

Dimi,j,arr(11)AsInteger

k=l

whilek<=10

arr(k)=Val(Inpu【Box("請輸入第”&k&“個數(shù)：「輸入窗口”))

k=k+1

Wend

Fori=ITo9

j=i+1

Ifarr(i)>arrfj)Then

temp=arr(i)

arr(i)=arrfj)

arr(j)=temp

EndIf

Debug.Printarr(i)

Nexti

EndSub

A.無序數(shù)列B.升序數(shù)列C.降序數(shù)列D.原輸入數(shù)列

(6)下列程序的功能是計算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。

PrivateSubCommand34_Click()

t=0

m=0

sum=0

Do

t=t+m

sum=sum+1

m=_________________________

Loopwhilem<41

MsgBox"Sum="&sum

EndSub

空白處應該填寫的語句是［C］?(2012年3月計算機二級Access試題)

A.t+2B.t+1C.m+2D.m+1

(7)要將“選課成績”表中學生的“成績”取整，可以使用的函數(shù)是【B1(2011年9月計算機二級Access

試題)

A.Abs(［成績］)B.Im(［成績］)C.Sqr(［成績］)D.Sgn(［成績］)

(8)在打開窗體時，依次發(fā)生的事件是【A，(2011年9月計算機二級Access試題)

A.打開(Open)-＞加載(Load)?＞調(diào)整大小(Resize)*激活(Activate)

B.打開(Open-＞激活(Activate))-＞加載(Load)-＞調(diào)整大小(Resize)

C.打開(Open)-＞調(diào)整大小(Resize)-＞加載(Load)-＞激活(Activate)

D.打開(Open)，激活(Activate)-＞調(diào)整大小(Resize)，加載(Load)

(9)在宏表達式中要引用Forml窗體中的txtl控件的值，正確的引用方法是【C(2011年9月計

算機二級Access試題)

A.Forml!txtlB.txtlC.Fonns!Forml!txtlD.Fonns!txtl

(10)將一個數(shù)轉(zhuǎn)換成相應字符串的函數(shù)是【A，(2011年9月計算機二級Access試題)

A.StrB.StringC.AscD.Chr

(IDVBA中定義符號常量使用的關鍵字是［A］o(2011年9月計算機二級Access試題)

A.ConstB.DimC.PublicD.Static

(12)由“Fori=1To16Step3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行［C(2011年9月計算機二級Access試題)

A.4次B.5次C.6次D.7次

(13)可以用InputBox函數(shù)產(chǎn)生“輸入對話框”。執(zhí)行語句：

st=lnputBox(“請輸入字符串“，"字符串對話框"Jaaaa”)

當用戶輸入字符串“bbbb"，按OK按鈕后，變量st的內(nèi)容是【D1(2011年9月計算機二級Access試

題)

A.aaaaB.請輸入字符串C.字符串對話框D.bbbb

(14)下列不屬于VBA函數(shù)的是【B(2011年9月計算機二級Access試題)

A.ChooseB.IfC.IlfD.Switch

(15)若有以下窗體單擊事件過程：

PrivateSubForm_Click()

result=1

Fori=1To6Step3

result=result*i

Nexti

MsgBoxresult

EndSub

打開窗體運行后，單擊窗體，則消息框的輸出內(nèi)容是［B］o(2011年9月計算機二級Access試題)

A.1B.4C.15D.120

(16)窗體中有命令按鈕Command32,其Click事件代碼如下。該事件的完整功能是：接收從鍵盤輸

入的10個大于0的整數(shù)，找出其中的最大值和對應的輸入位置：

PrivateSubCommand32_Click()

max=0

max_n=0

Fori=1To10

num=Val(InpulBox(“請輸入第“&i&”個大于0的整數(shù)：”))

if________________Then

max=num

max_n=i

EndIf

Nexti

MsgBox("最大值為第"&max_n&”個輸入的"&max)

EndSub

程序空白處應該填入的表達式是[C](2011年9月計算機二級Access試題)

A.num>iB.i<maxC.num>maxD.num<max

(17)若有如下Sub過程：

Subsfiin(xAsSingle,yAsSingle)

t=x

x=t/y

y=tMody

EndSub

往窗體中添加一個命令按鈕Command33,對應的事件過程如F：

PrivateSubCommand33_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

sfun(a.b)

MsgBoxa&chr(10)+chr(13)&b

EndSub

打開窗體運行后，單擊命令按鈕，消息框中有兩行輸出，內(nèi)容分別為【B(2011年9月計算機二

級Access試題)

A.1和1B.1.25和1C.1.25和4D.5和4

(18)運行下列程序，顯示的結(jié)果是[C]0(2011年9月計算機二級Access試題)

PrivateSubCommand34_Click()

i=0

Do

i=i+1

LoopWhilei<10

MsgBoxi

EndSub

A.0B.1C.10D.11

(19)運行下列程序，在立即窗口顯示的結(jié)果是【D(2011年9月計算機二級Access試題)

PrivateSubCommand()_Click()

DimIAsInteger,JAsInteger

ForI=2To10

ForJ=2To1/2

IfImodJ=0Then

ExitFor

NextJ

IfJ>sqr(I)Then

Debug.PrintI;

NextI

EndSub

A.1579B.468C.3579D.2357

(20)運行下列程序段，結(jié)果是[A]o(2011年3月計算機二級Access試題)

Form=10To1Step0

k=k+3

Nextm

A.形成死循環(huán)

B.循環(huán)體不執(zhí)行即結(jié)束循環(huán)

C.出現(xiàn)語法錯誤

D.循環(huán)體執(zhí)行一次后結(jié)束循環(huán)

2.填空題

(1)已知：DimrsAsnewADODB.RecordSet,在程序中為了得到記錄集的下一條記錄，應該使用的

方法是rs.movenext。(2012年3月計算機二級Access試題)

(2)在VBA中，沒有顯式聲明或使用符號來定義的變量，其數(shù)據(jù)類型默認是—Variant。

(2012年3月計算機二級Access試題)

(3)下列程序的功能是：輸入10個整數(shù)，逆序后輸出，請在程序空白處填入適當語句使程序完成指

定的功能。(2012年3月計算機二級Access試題)

PrivateSubConimand2_Click()

Dimi.j.k,temp,arr(l1)AsInteger

DimresultAsString

Fork=1To10

arr(k)=Val(InpulBox(“請輸入第”&k&“個數(shù)：”，“數(shù)據(jù)輸入窗口”))

Nextk

i=I

j=10

Do

temp=arr(i)

arr(i)=arr(j)

arr(j)=temp

i=i+1

j=_iJ_____

LoopWhilei>=j______

result=

Fork=1To10

result=result&arr(k)&Chr(13)

Nextk

MsgBoxresult

EndSub

（4）己經(jīng)設計出一個表格式窗體，可以輸出教師表的相關字段信息，請按照以下功能要求補充設計:

改變當前記錄，消息框彈出提示“是否刪除該記錄？“，單擊“是“，則直接刪除該當前記錄；單擊“否”，則

什么都不做，其效果圖如卜.：（2012年3月計算機二級Access試題）

'單擊"退按鈕，關閉窗體

PrivateSubbtnCancel_Click（）

DoCmd.Close

EndSub，表格式窗體當前記錄變化時觸發(fā)

PrivateSubForm_Current（）

IfMsgBox（"是否刪除該記錄？",vbQuestion+vbYesNo,"確認"）=vbYesThen

DoCmd.DoMenuItcmacFoi*mBar,acEditMenu,8,,acMenuVcr70

EndIf

EndSub

（5）若窗體名稱為Form1,則將該窗體標題設置為“Access窗體”的語句是form1.camion二"Access窗

體“。（2011年9月計算機二級Access試題）

（6）下列程序段的功能是求1到100的累加和。請在空白處填入適當?shù)恼Z句，使程序完成指定的功能。

（2011年9月計算機二級Access試題）

DimsAsInteger,mAsIntegers=0m=1

doWhilem<=100_________

s=s+m

m=m+1

Loop

(7)下列程序的功能是求算式：1-1/2+1/3-1/4+前30項之和。清在空白處填入適當?shù)恼Z句，使程序

可以完成指定的功能。(2011年9月計算機：級Access試題)

PrivateSubCommand1_Click()

DimiasInteger,sAsSingle,fAsInteger

s=O:f=1

Fori=1To30

s=s+f7i

f=-f

Nexti

Debug.Print,41-1/2+1/3-1/4+...=M;s

EndSub

(8)有一個標題為“登錄”的用戶登錄窗體，窗體上有兩個標簽，標題分別為“用戶名：''和“密碼：”，

用于輸入用戶名的文本框名為“UserName"，用于輸入密碼的文本框名為“UserPassword”，用于進行倒計時

顯示的文本框名為“Tnum"，窗體上有一個標題為“確認”的按鈕名為“OK”，用于輸入完用戶名和密碼后單擊

此按鈕確認。(2011年9月計算機二級Access試題)

用戶名U

定碼廠

夠|

輸入用戶名和密碼，如用戶名或密碼錯誤，則給出提示信息；如正確，則顯示“歡迎使用！”信息，要

求整個登錄過程要在30秒中完成，如果超過30秒還沒有完成正確的登錄操作，則程序給出提示自動終止整

個登錄過程。請在程序空白處填入適當?shù)恼Z句，使程序完成指定的功能。

OptionCompareDatabaseDimSecondAsInteger

PrivateSubForm_Open(CancelAsInteger)

Second=0

EndSub

PrivateSubForm_Timer()

IfSecond>3()Then

MsgBox”請在30秒中登錄：vbCritical,“警告"

DoCind.Close

Else

MeJTnum=30-Second，倒計時顯示

EndIf

Second=Sccond+1___________

EndSub

PrivateSubOK_Click()

IfMe.UserName<>"123"OrMe.UserPasswordo"456"Then

MsgBox"錯誤!"+"您還有"&30-Second&"秒:vbCritical,"提示"

Else

Me.Timerinterval=__________0_______________'終止Timer事件繼續(xù)發(fā)生

MsgBox”歡迎使用！",vblnfbrmaiion,"成功"

DoCmd.Close

EndIf

EndSub

(9)運行下列程序，窗體中的顯示結(jié)果是：x=21o(2011年3月計算機二級Access試題)

OptionCompareDatabase

DimxAsInteger

PrivateSubForm_Load()

x=3

EndSub

PrivateSubCommand1l_Click()

StaticaAsInteger

DimbAsInteger

b=xA2

funIx,b

funIx,b

MsgBox"x="&x

EndSub

SubfunKByRefyAsInteger,ByVaizAsInteger）

y=y+z

z=y-z

EndSub

（10）運行下列程序，輸入如下兩行：

Hi,

Iamhere.

彈■的窗體中的顯示結(jié)果是一空.0（2011年3月計算機二?級Access試題）

PrivateSubCommand1l_Click（）

DimabcAsString,sumAsString

sum=""

Do

abc=InputBox（"輸入abc"）

IfRight（abc,1）=ThenExitDo

sum=sum+abc

Loop

MsgBoxsum

EndSub

（11）在VBA中要將數(shù)值表達式的值轉(zhuǎn)換為字符串，應使用函數(shù)str。（2011年3月計算機二級

Access試題）

（12）若要在宏中打開某個數(shù)據(jù)表，應使用的宏命令是一OpenTable。（2011年3月計算機

二級Access試題）

9.4練習

i.選擇題

(1)利用ADO訪問數(shù)據(jù)庫的步驟是:

①定義和創(chuàng)建ADO實例變量

②設置連接參數(shù)并打開連接

③設置命令參數(shù)并執(zhí)行命令

④設置查詢參數(shù)并打開記錄集

⑤操作記錄集

⑥關閉、回收有關對象

這些步驟的執(zhí)行順序應該是【D（2012年3月計算機二級Access試題）

A.①④③②⑤⑥B.①③④②⑤⑥C.①??⑤②⑥D(zhuǎn).①②③④⑤⑥

2.填空題

（1）數(shù)據(jù)庫中有“平時成績表”，包括“學號”、“姓名”、“平時作業(yè)”、“小測驗”、“其中考試”、“平時成

績”和“能否考試”等字段，其中，平時成績=平時作業(yè)*50%+小測驗*10%+期中成績*40%,如果學生平時成

績大于等于60分，則可以參加期末考試（“能否考試”字段為真），否則學生不能參加期末考試。下面的程

序按照上述要求計算每名學生的平時成績并確定是否能夠參加期末考試。請在空白處填入適當?shù)恼Z句，使

程序可以完成所需要的功能。（2011年9月計算機：級Access試題）

PrivateSubCommandO_Click（）

DimdbAsDAO.Database

DimrsAsDAO.Recordset

DimpszyAsDAO.FieId.xcyAsDAO.Field,qzksAsDAO.Field

DimpsAsDAO.Field.ksAsDAO.Field

Setdb=CurrentDbO

Setrs=db.OpenRecordSel（"平時成績表”）

Setpszy=rs.Fields（"平時作業(yè)"）

Setxcy=rs.Fields（"小測驗”）

Setqzks=rs.Fields（"期中考試”）

Setps=rs.Fields（"平時成績"）

Setks=rs.Fields（"能否考試"）

DoWhileNotrs.EOF

rs.Edit

ps=azY*0.5+xcY*0.1+qzks/0.4_______

Ifps>=60Then

ks=True

Else

ks=False

EndIf

rs.update_______

rs.MoveNext

Loop

rs.Close

db.Close

Setrs=Nothing

Setdb=Nothing

EndSub

（2）數(shù)據(jù)庫中有”學生成績表"，包括“姓名"、"平時成績"、"考試成績"和“期末總評”等字段，現(xiàn)要根據(jù)

"平時成績"和”考試成績”對學生進行"期末總評"。規(guī)定："平時成績"加“考試成績”大于等于85分，則期末總

評為"優(yōu)"，”平時成績"加"考試成績"小于60分，則期末總評為“不及格”，其他情況期末總評為“合格"。下

面的程序按照上述要求計算每名學生的期末總評。請在空白處填入適當?shù)恼Z句，使程序可以完成指定的功

能。（2011年3月計算機二級Access試題）

PrivateSubCommandO_Click（）

DimdbAsDAO.Database

DimrsAsDAO.Recordset

Dimpscj,kscj,qmzpAsDAO.Field

DimcountAsInteger

Setdb=CurrentDbO

Setrs=db.OpcnRccordset（"學生成績表”）

Setpscj=rs.Fields（"平時成績"）

Setkscj=-.Fields（"考試成績"）

Setqmzp=rs.Fiekls（"期末總評"）

count=0

DoWhileNotre.EOF

rs.edit

Ifpscj+kscj>=85Then

qmzp="優(yōu)"

Elselfpscj+kscj<60Then

qmzp="不及格"

Else

qmzp="合格"

EndIf

rs.Update

count=count+1

rs.movenext______

Loop

rs.CIose

db.Close

Setrs=Nothing

Setdb=Nothing

MsgBox"學生人數(shù):"&count

EndSub

（3）“秒表”窗體中有兩個按鈕（”開始/停止”按鈕bOK,”暫停/繼續(xù)”按鈕bPus）；一個顯示計時的標簽

INum：窗體的”計時器間隔”設為100,計時精度為0.1秒。（2011年3月計算機二級Access試題）

要求：打開窗體如圖1所示：第?次單擊”開始/停止”按鈕，從。開始滾動顯示計時（見圖2）；10秒時單擊

"暫停/繼續(xù)”按鈕，顯示暫停（見圖3）,但計時還在繼續(xù)；若20秒后再次單擊”暫停/繼續(xù)”按鈕，計時會從

30秒開始繼續(xù)滾動顯示；第二次單擊”開始/停止”按鈕，計時停止，顯示最終時間（見圖4）。若再次單擊”

開始/停止”按鈕可重新從0開始計時。

圖1圖2

圖3圖