Access課后習(xí)題答案

第一章：

1、選擇題:

題號12345678910

答案CCDAABCBAA

題號11121314151617181920

答案DABDDBAADB

填空題：

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

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

2.8練習(xí)

i.選擇題

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

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

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

C.索引D.表之間的關(guān)系

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

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

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

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

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

試題）

A.表B.記錄

C.字段D.域

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

A.文本B.備注

C.OLE對象D.超鏈接

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

計(jì)算機(jī)二級Access試題）

A.修改字段類型B.設(shè)置索引

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

（6）若要求在文本框中輸入文本時(shí)達(dá)到密碼“*”的顯示效果，則應(yīng)該設(shè)置的屬性是

[C]。（2010年3月計(jì)算機(jī)二級Access試題）

A.默認(rèn)值B.有效性文本

C.輸入掩碼D.密碼

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

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

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

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

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

（8）下列關(guān)于索引的敘述中，錯(cuò)誤的是【A]o（2012年3月計(jì)算機(jī)二級Access

試題）

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

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

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

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

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

A.不能設(shè)置索引

B.可設(shè)置為“有（有重復(fù)）”索引

C.系統(tǒng)自動(dòng)設(shè)置索引

D.可設(shè)置為“無”索引

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

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

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

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

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

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

試題）

A.輸入掩碼

B.有效性規(guī)則

C.字段名稱

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

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

Access試題)

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

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

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

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

2.填空題

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

年9月計(jì)算機(jī)二級Access試題)

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

年3月計(jì)算機(jī)二級Access試題)

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

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

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

主關(guān)鍵字的是學(xué)號。(2012年3月計(jì)算機(jī)二級Access試題)

3.8練習(xí)題

1.選擇題

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

機(jī)二級Access試題)

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

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

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

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

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

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

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

試題）

圖3.76選擇查詢設(shè)計(jì)視圖

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

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

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

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

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

試題）

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

C.操作查詢D.SQL查詢

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

題）

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

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

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

授的教師，錯(cuò)誤的語句是［C］o（2012年3月計(jì)算機(jī)二級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）假設(shè)''公司”表中有編號、名稱、法人等字段，查找公司名稱中有“網(wǎng)絡(luò)”二字的公司信息，正

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

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

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

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

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

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

機(jī)二級Access試題）

A.FROMB.WHILE

C.GROUPBYD.ORDERBY

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

表3.4商品表

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

40101A牌電風(fēng)扇20010廣東

40104A牌微波爐35010廣東

20105C牌傳真機(jī)100020上海

40202A牌電冰箱30002廣東

301041B牌計(jì)算機(jī)600010廣東

30204C牌計(jì)算機(jī)1000010廣東

執(zhí)行SQL命令：

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

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

A.1B.3

C.4D.10

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

年3月計(jì)算機(jī)二級Access試題）

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

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

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

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

2.填空題

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

詢。（2012年3月計(jì)算機(jī)二級Access試題）

（2）在Access查詢的條件表達(dá)式中要表示任意單個(gè)字符，應(yīng)使用通配符（2011年3月計(jì)算機(jī)

二級Access試題）

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

機(jī)二級Access試題）

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

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

試題）

4.6練習(xí)

i.選擇題

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

3月計(jì)算機(jī)二級Access試題）

A.只能選擇綁定型控件

B.只能選擇計(jì)算型控件

C.可以選擇綁定型或計(jì)算型控件

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

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

設(shè)計(jì)窗體時(shí)，學(xué)歷對應(yīng)的控件應(yīng)該選擇【D（2012年3月計(jì)算機(jī)二級Access試題）

A.標(biāo)簽B.文本框C.復(fù)選框D.組合框

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

A.紀(jì)錄源B.自動(dòng)居中C.獲得焦點(diǎn)D.記錄選擇器

（4）在窗體設(shè)計(jì)工具箱中，代表組合框的圖標(biāo)是【D]。（2008年9月計(jì)算機(jī)二級Access試題）

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

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

試題）

A.標(biāo)題B.杳詢條件C.控件來源D.記錄源

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

A.圖形B.文本框C.標(biāo)簽D.命令按鈕

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

試題）

A.文本框控件B.標(biāo)簽控件C.復(fù)選框控件D.列表框控件

2.填空題

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

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

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

5.9練習(xí)

i.選擇題

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

算機(jī)二級Access試題)

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

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

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

計(jì)算機(jī)二級Access試題)

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

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

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

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

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

A.標(biāo)簽控件B.圖形控件C.文本框控件D.選項(xiàng)組控件

(4)下列關(guān)于報(bào)表的敘述中，正確的是【B(2009年3月計(jì)算機(jī)二級Access試題)

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

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

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

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

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

試題)

A.報(bào)表頁腳B.該字段的組頁腳

C.主體D.頁面頁腳

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

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

C.表、查詢和SQL命令D.表、查詢和報(bào)表

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

A.頁面頁腳B.報(bào)表頁腳

C.頁面頁眉D.報(bào)表頁眉

（8）在報(bào)表中，要計(jì)算“數(shù)學(xué)”字段的最高分，應(yīng)將控件的“控件來源”屬性設(shè)置為【A（2007

年9月計(jì)算機(jī)二級Access試題）

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

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

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

[B（2007年4月計(jì)算機(jī)二級Access試題）

A.報(bào)表頁眉B.報(bào)表頁腳

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

（10）若要在報(bào)表每一頁底部都輸出信息，，需要設(shè)置的是【A（2006年9月計(jì)算機(jī)二級Access

試題）

A.頁面頁腳B.報(bào)表頁腳

C.頁面頁眉D.報(bào)表頁眉

2.填空題

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

月計(jì)算機(jī)二級Access試題）

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

組。（2007年4月計(jì)算機(jī)二級Access試題）

6.5練習(xí)

i.選擇題

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

A.窗體B.報(bào)表C.表和查詢D.以上均可

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

算機(jī)二級Access試題）

A.3B.」C.當(dāng)I）.金

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

試題）

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

2.填空題

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

算機(jī)二級Access試題）

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

3月計(jì)算機(jī)二級Access試題）

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

題）

7.5練習(xí)

i.選擇題

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

3月計(jì)算機(jī)二級Access試題）

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

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

A.打開報(bào)表B.對錯(cuò)誤進(jìn)行處理C.顯示提示信息D.打開和關(guān)閉窗體

2.填空題

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

級Access試題)

8.9練習(xí)

i.選擇題

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

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

B.每個(gè)對象的事件都是不相同的

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

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

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

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

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

A.EOFB.FileLenC.LenD.LOF

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

Access試題)

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

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

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

Subpl()

Dimi,j,arr(11)AsInteger

k=l

whilek<=10

arr(k)=Val(Inpu【Box("請輸入第”&k&“個(gè)數(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)下列程序的功能是計(jì)算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

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

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

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

試題)

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

(8)在打開窗體時(shí)，依次發(fā)生的事件是【A，(2011年9月計(jì)算機(jī)二級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)在宏表達(dá)式中要引用Forml窗體中的txtl控件的值，正確的引用方法是【C(2011年9月計(jì)

算機(jī)二級Access試題)

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

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

A.StrB.StringC.AscD.Chr

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

A.ConstB.DimC.PublicD.Static

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

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

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

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

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

題)

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

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

A.ChooseB.IfC.IlfD.Switch

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

PrivateSubForm_Click()

result=1

Fori=1To6Step3

result=result*i

Nexti

MsgBoxresult

EndSub

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

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

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

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

PrivateSubCommand32_Click()

max=0

max_n=0

Fori=1To10

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

if________________Then

max=num

max_n=i

EndIf

Nexti

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

EndSub

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

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

(17)若有如下Sub過程：

Subsfiin(xAsSingle,yAsSingle)

t=x

x=t/y

y=tMody

EndSub

往窗體中添加一個(gè)命令按鈕Command33,對應(yīng)的事件過程如F：

PrivateSubCommand33_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

sfun(a.b)

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

EndSub

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

級Access試題)

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

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

PrivateSubCommand34_Click()

i=0

Do

i=i+1

LoopWhilei<10

MsgBoxi

EndSub

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

(19)運(yùn)行下列程序，在立即窗口顯示的結(jié)果是【D(2011年9月計(jì)算機(jī)二級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)運(yùn)行下列程序段，結(jié)果是[A]o(2011年3月計(jì)算機(jī)二級Access試題)

Form=10To1Step0

k=k+3

Nextm

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

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

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

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

2.填空題

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

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

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

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

(3)下列程序的功能是：輸入10個(gè)整數(shù)，逆序后輸出，請?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)語句使程序完成指

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

PrivateSubConimand2_Click()

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

DimresultAsString

Fork=1To10

arr(k)=Val(InpulBox(“請輸入第”&k&“個(gè)數(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)設(shè)計(jì)出一個(gè)表格式窗體，可以輸出教師表的相關(guān)字段信息，請按照以下功能要求補(bǔ)充設(shè)計(jì):

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

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

'單擊"退按鈕，關(guān)閉窗體

PrivateSubbtnCancel_Click（）

DoCmd.Close

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

PrivateSubForm_Current（）

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

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

EndIf

EndSub

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

體“。（2011年9月計(jì)算機(jī)二級Access試題）

（6）下列程序段的功能是求1到100的累加和。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序完成指定的功能。

（2011年9月計(jì)算機(jī)二級Access試題）

DimsAsInteger,mAsIntegers=0m=1

doWhilem<=100_________

s=s+m

m=m+1

Loop

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

可以完成指定的功能。(2011年9月計(jì)算機(jī)：級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)有一個(gè)標(biāo)題為“登錄”的用戶登錄窗體，窗體上有兩個(gè)標(biāo)簽，標(biāo)題分別為“用戶名：''和“密碼：”，

用于輸入用戶名的文本框名為“UserName"，用于輸入密碼的文本框名為“UserPassword”，用于進(jìn)行倒計(jì)時(shí)

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

此按鈕確認(rèn)。(2011年9月計(jì)算機(jī)二級Access試題)

用戶名U

定碼廠

夠|

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

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

個(gè)登錄過程。請?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序完成指定的功能。

OptionCompareDatabaseDimSecondAsInteger

PrivateSubForm_Open(CancelAsInteger)

Second=0

EndSub

PrivateSubForm_Timer()

IfSecond>3()Then

MsgBox”請?jiān)?0秒中登錄：vbCritical,“警告"

DoCind.Close

Else

MeJTnum=30-Second，倒計(jì)時(shí)顯示

EndIf

Second=Sccond+1___________

EndSub

PrivateSubOK_Click()

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

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

Else

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

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

DoCmd.Close

EndIf

EndSub

(9)運(yùn)行下列程序，窗體中的顯示結(jié)果是：x=21o(2011年3月計(jì)算機(jī)二級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）運(yùn)行下列程序，輸入如下兩行：

Hi,

Iamhere.

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

PrivateSubCommand1l_Click（）

DimabcAsString,sumAsString

sum=""

Do

abc=InputBox（"輸入abc"）

IfRight（abc,1）=ThenExitDo

sum=sum+abc

Loop

MsgBoxsum

EndSub

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

Access試題）

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

二級Access試題）

9.4練習(xí)

i.選擇題

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

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

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

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

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

⑤操作記錄集

⑥關(guān)閉、回收有關(guān)對象

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

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

2.填空題

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

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

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

序按照上述要求計(jì)算每名學(xué)生的平時(shí)成績并確定是否能夠參加期末考試。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使

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

PrivateSubCommandO_Click（）

DimdbAsDAO.Database

DimrsAsDAO.Recordset

DimpszyAsDAO.FieId.xcyAsDAO.Field,qzksAsDAO.Field

DimpsAsDAO.Field.ksAsDAO.Field

Setdb=CurrentDbO

Setrs=db.OpenRecordSel（"平時(shí)成績表”）

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

Setxcy=rs.Fields（"小測驗(yàn)”）

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

Setps=rs.Fields（"平時(shí)成績"）

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ù)庫中有”學(xué)生成績表"，包括“姓名"、"平時(shí)成績"、"考試成績"和“期末總評”等字段，現(xiàn)要根據(jù)

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

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

面的程序按照上述要求計(jì)算每名學(xué)生的期末總評。請?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z句，使程序可以完成指定的功

能。（2011年3月計(jì)算機(jī)二級Access試題）

PrivateSubCommandO_Click（）

DimdbAsDAO.Database

DimrsAsDAO.Recordset

Dimpscj,kscj,qmzpAsDAO.Field

DimcountAsInteger

Setdb=CurrentDbO

Setrs=db.OpcnRccordset（"學(xué)生成績表”）

Setpscj=rs.Fields（"平時(shí)成績"）

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"學(xué)生人數(shù):"&count

EndSub

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

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

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

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

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

開始/停止”按鈕可重新從0開始計(jì)時(shí)。

圖1圖2

圖3圖