3[簡答題]

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

　　好表對象“tStudent”，同時還設(shè)計出窗體對象“fQuery”、“fStudent”和“fCount”。請在此基礎(chǔ)上按照以下要求補充“fQuery”和“fCount”窗體的設(shè)計。

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

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

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

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

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

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

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

　　(1)【操作步驟】

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

　　步驟2：雙擊標(biāo)尺相交處的“窗體選擇器”，打開“屬性表”對話框，在該對話框中單擊“事件”選項卡，然后單擊該選項卡下的“加載”行右側(cè)的事件生成器按鈕，進入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è)計視圖”。

　　(2)【操作步驟】

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

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

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

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

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

　　(3)【操作步驟】

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

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

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

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

　　(4)【操作步驟】

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

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

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

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

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

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

2017等考各科真題答案

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

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

2017等考成績查詢時間

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

　　相關(guān)推薦：

　　2017年全國計算機等級考試時間|教材目錄（2017年版）

　　2017年9月計算機等級考試真題|計算機等級考試答案

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

　　2017全國計算機等級考試考前必做試題及答案匯總

　　各地2017年9月計算機等考成績查詢時間|免費查分提醒

　　計算機等級考試成績評定流程及標(biāo)準(zhǔn)|合格證書樣本及證書說明

　　歷年真題匯總|考試吧特別策劃：2017年計算機等級考試報考指南