3[簡答題]

　　在考生文件夾下，存在一個(gè)數(shù)據(jù)庫文件“samp3.accdb”，里面已經(jīng)設(shè)計(jì)

　　好表對(duì)象“tStudent”，同時(shí)還設(shè)計(jì)出窗體對(duì)象“fQuery”、“fStudent”和“fCount”。請(qǐng)?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充“fQuery”和“fCount”窗體的設(shè)計(jì)。

　　(1)加載“fQuery”時(shí)重置窗體標(biāo)題并改為“顯示查詢信息”，將窗體中“退出”命令按鈕(名稱為“命令7”)上顯示的文字顏色自動(dòng)改為紅色(紅色值為255)，字體粗細(xì)改為“加粗”(加粗值為700)。請(qǐng)按照VBA代碼中的指示將實(shí)現(xiàn)此功能的代碼補(bǔ)充完整。

　　(2)在“fQuery”窗體距主體節(jié)上邊O.40n、左邊0.4 em位置添加一個(gè)矩形控件，其名稱為“rRim”;矩形寬度為16.6 cm、高度為1.2 em、特殊效果為“鑿痕”。將窗體邊框改為“對(duì)話框邊框”樣式，取消窗體中的水平和垂直滾動(dòng)條、記錄選擇器、導(dǎo)航按鈕和分隔線。

　　(3)在“fQuery”窗體中有一個(gè)“照示全部記錄”命令按鈕(名稱為bList)，單擊該按鈕后，應(yīng)實(shí)現(xiàn)將“tStudent”表中的全部記錄顯示出來的功能。現(xiàn)已編寫了部分VBA代碼，請(qǐng)按照VBA代碼中的指示將代碼補(bǔ)充完整。

　　要求：修改后運(yùn)行該窗體，并查看修改結(jié)果。

　　(4)在“fCount”窗體中有兩個(gè)列表框、一個(gè)文本框和一個(gè)命令按鈕，名稱分別為“List0”、“Listl”、“tData”和“Cmd”。在“tData”文本框中輸入一個(gè)數(shù)，單擊“Cmd”按鈕，程序?qū)⑴袛噍斎氲闹凳瞧鏀?shù)還是偶數(shù)，如果是奇數(shù)將填入“List0”列表中，否則填入“Listl”列表中。根據(jù)以上描述，請(qǐng)按照VBA代碼中的指示將代碼補(bǔ)充完整。

　　注意：不允許修改窗體對(duì)象“rQuelw”、“tStudent”和“fCount”中未涉及的控件、屬性;不允許修改表對(duì)象“tStudent”。程序代碼只允許在“* * * * * Add * * * * *”與“* * * * * Add * * * * *”之間的空行內(nèi)補(bǔ)充一行語句、完成設(shè)計(jì)，不允許增刪和修改其它位置已存在的語句。

　　參考解析：【考點(diǎn)分析】本題考點(diǎn)：設(shè)置窗體和控件屬性，增加窗體控件，編碼設(shè)置窗體命令按鈕的單擊事件。 【解題思路】第1、3小題直接右鍵單擊窗體選擇器，選擇“屬性”命令，設(shè)置加載事件，在VBA代碼編輯區(qū)實(shí)現(xiàn)代碼編輯。第2小題在窗體的設(shè)計(jì)視圖中增加控件，對(duì)控件屬性進(jìn)行設(shè)置;第4小題右鍵單擊控件，選擇“屬性”命令，通過VBA編程設(shè)置單擊事件。

　　(1)【操作步驟】

　　步驟1：選擇“窗體”對(duì)象，右鍵單擊“fQuery”窗體，在彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令，打開設(shè)計(jì)視圖。

　　步驟2：雙擊標(biāo)尺相交處的“窗體選擇器”，打開“屬性表”對(duì)話框，在該對(duì)話框中單擊“事件”選項(xiàng)卡，然后單擊該選項(xiàng)卡下的“加載”行右側(cè)的事件生成器按鈕，進(jìn)入VBA代碼編輯區(qū)。

　　步驟3：在“’* * * * * Add1 * * * * *”區(qū)域的空白行中輸入“Me.Caption=”顯示查詢信息””;在“’* * * * * Add2 * * * * *”區(qū)域的空白行中輸入“Me.命令7.Fore Color=255”;在“’* * * * * Add3* * * * *”區(qū)域的空白行中輸入“Me.命令7.Font Weight=700”，如圖4.16所示。

　　步驟4：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉VBA代碼編輯區(qū)。

　　步驟5：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉“設(shè)計(jì)視圖”。

　　(2)【操作步驟】

　　步驟l：選擇“窗體”對(duì)象，右鍵單擊“fQuery”窗體，在彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。

　　步驟2：單擊“設(shè)計(jì)”選項(xiàng)卡下“控件”組中的“其他”下拉按鈕，然后單擊控件組中的“矩形”按鈕，最后單擊窗體主體節(jié)區(qū)的任意區(qū)域。

　　步驟3：右鍵單擊剛畫好的“矩形”，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對(duì)話框，單擊該對(duì)話框下的“全部”選項(xiàng)卡，在該選項(xiàng)卡的“名稱”行中輸入“rRim”，在“寬度”行中輸入“16.6cm”，在“高度”行中輸入“1.2cm”，在“上邊距”行中輸入“0.4cm”，在“左”行中輸入“0.4cm”，在“特殊效果”行中選擇“鑿痕”，如圖4，17所示。

　　步驟4：雙擊標(biāo)尺相交處的“窗體選擇器”，彈出“屬性表”對(duì)話框，在該對(duì)話框中單擊“格式”選項(xiàng)卡，在該選項(xiàng)卡的“邊框樣式”行中選擇“對(duì)話框邊框”，在“滾動(dòng)條”行中選擇“兩者均無”，在“記錄選擇器”行中選擇“否”，在“導(dǎo)航按鈕”行中選擇“否”，在“分隔線”行中選擇“否”，如圖4.18所示。

　　步驟5：關(guān)閉“屬性表”對(duì)話框。單擊快速工具欄中的“保存”按鈕。

　　(3)【操作步驟】

　　步驟1：右鍵單擊“顯示全部記錄”命令按鈕，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對(duì)話框，單擊該對(duì)話框下的“事件”選項(xiàng)卡，然后單擊該選項(xiàng)卡下“加載”行右側(cè)的事件生成器按鈕，進(jìn)入VBA代碼編輯區(qū)。

　　步驟2：在“* * * * * Add4 * * * * *”區(qū)域的“BBB.Form.RecordSource=””行后輸入“select$from tStudent””，如圖4.19所示。

　　步驟3：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉VBA代碼編輯區(qū)。

　　步驟4：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉“設(shè)計(jì)視圖”。

　　(4)【操作步驟】

　　步驟1：選擇“窗體”對(duì)象，右鍵單擊“fCount”窗體，在彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。

　　步驟2：右鍵單擊“Cmd”按鈕，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對(duì)話框，單擊該對(duì)話框下的“事件”選項(xiàng)卡，然后單擊該選項(xiàng)卡的“單擊”行右側(cè)的事件生成器按鈕，進(jìn)入VBA代碼編輯區(qū)。

　　步驟3：在“* * * * * Add * * * * *”區(qū)域的空白行中輸入“If x Mod 2=l Then”，如圖4.20所示。

　　步驟4：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉VBA代碼編輯區(qū)。

　　步驟5：單擊快速工具欄中的“保存”按鈕，然后關(guān)閉“設(shè)計(jì)視圖”。

掃描/長按二維碼幫助考試通關(guān)

2017等考各科真題答案

2017等考各科通關(guān)技巧

2017各科最新預(yù)測(cè)試卷

2017等考成績查詢時(shí)間

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　2017年全國計(jì)算機(jī)等級(jí)考試時(shí)間|教材目錄（2017年版）

　　2017年9月計(jì)算機(jī)等級(jí)考試真題|計(jì)算機(jī)等級(jí)考試答案

　　2017年計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　2017全國計(jì)算機(jī)等級(jí)考試考前必做試題及答案匯總

　　各地2017年9月計(jì)算機(jī)等考成績查詢時(shí)間|免費(fèi)查分提醒

　　計(jì)算機(jī)等級(jí)考試成績?cè)u(píng)定流程及標(biāo)準(zhǔn)|合格證書樣本及證書說明

　　歷年真題匯總|考試吧特別策劃：2017年計(jì)算機(jī)等級(jí)考試報(bào)考指南