3[簡答題]
考生文件夾下存在一個(gè)數(shù)據(jù)庫文件“samp3.accdb”,里面已經(jīng)設(shè)計(jì)好表對象“tStud”,同時(shí)還設(shè)計(jì)出窗體對象“fStud”。請?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充“fStud”窗體的設(shè)計(jì)。
(1)在窗體的“窗體頁眉”中距左邊0.4cm、距上邊1.2 cm處添加一個(gè)直線控件,控件寬度為10.5cm,控件命名為“tLine”;將窗體中標(biāo)簽控件“l(fā)Talbel”上的文字改為“隸書”,字號(hào)改為18。
(2)打開窗體時(shí),窗體標(biāo)題自動(dòng)顯示為標(biāo)簽控件“1Talbel”的內(nèi)容,并且自動(dòng)將該控件上的文字顏色改為“藍(lán)色”,請按照VBA代碼中的指示將代碼補(bǔ)充完整。
(3)將窗體邊框改為“細(xì)邊框”樣式,取消窗體中的水平和垂直滾動(dòng)條、記錄選擇器、導(dǎo)航按鈕和分隔線;并且只保留窗體的關(guān)閉按鈕。
(4)假設(shè)“tStud”表中“學(xué)號(hào)”字段的第5位和第6位編碼代表該生的專業(yè)信息,當(dāng)這兩位編碼為“10”時(shí)表示“信息”專業(yè),為其他值時(shí)表示“管理”專業(yè)。設(shè)置窗體中名稱為“tSub”文本框控件的相應(yīng)屬性,使其根據(jù)“學(xué)號(hào)”字段的第5位和第6位編碼顯示對應(yīng)的專業(yè)名稱。
(5)在窗體中有一個(gè)“退出”命令按鈕,名稱為“CmdQuit”,其功能為關(guān)閉“fStud”窗體。請按照VBA代碼中的指示將實(shí)現(xiàn)此功能的代碼補(bǔ)充完整。注意:不允許修改窗體對象“fStud”中未涉及的控件、屬性和任何VBA代碼;不允許修改表對象“fstud”;程序代碼只允許在“* * * * * Add * * * * *”與“* * * * * Add * * * * *”之間的空行內(nèi)補(bǔ)充一行語句完成設(shè)計(jì),不允許增刪和修改其它位置已存在的語句。
參考解析:【考點(diǎn)分析】本題考點(diǎn):設(shè)置窗體和控件屬性,增加窗體控件,編碼設(shè)置窗體命令按鈕的單擊事件。 【解題思路】第1小題在窗體的設(shè)計(jì)視圖增加控件,對控件屬性進(jìn)行設(shè)置;第2小題直接雙擊窗體選擇器,在彈出的“屬性表”對話框中設(shè)置加載事件.在VBA代碼編輯區(qū)實(shí)現(xiàn)代碼編輯。第3、4、5小題右鍵單擊控件選擇“屬性”命令,通過設(shè)置對應(yīng)屬性實(shí)現(xiàn)。
(1)【操作步驟】
步驟1:選擇“窗體”對象,右鍵單擊“fStud”窗體,在彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令,打開“設(shè)計(jì)視圖”。
步驟2:單擊“設(shè)計(jì)”選項(xiàng)卡下“控件”組中的“其他”下拉按鈕,選擇控件組中的“直線”按鈕,然后在窗體頁眉節(jié)的任意區(qū)域中單擊。
步驟3:右鍵單擊該“直線”控件,在彈出的快捷菜單中選擇“屬性”命令,打開“屬性表”對話框,在該對話框中單擊“全部”選項(xiàng)卡,在該選項(xiàng)卡下的“名稱”行中輸入“tLine”,在“寬度”行中輸入“10.5cm”,在“上邊距”行中輸入“1.2cm”,在“左”行中輸入“0.4cm”,如圖4.38所示。
步驟4:單擊“屬性表”對話框中“所選內(nèi)容的類型:”下方的文本框,在彈出的下拉列表中選擇“l(fā)Talbel”標(biāo)簽,打開“l(fā)Talbel”標(biāo)簽的“屬性表”對話框。在該對話框中單擊“格式”選項(xiàng)卡,在該選項(xiàng)卡的“字體名稱”行中選擇“隸書”,在“字號(hào)”行中輸入“18”,如圖4.39所示。
步驟5:關(guān)閉“屬性表”對話框。單擊快速工具欄中的“保存”按鈕。
(2)1操作步驟】
步驟1:雙擊標(biāo)尺相交處的“窗體選擇器”,打開“屬性表”對話框,在該對話框中單擊“事件”選項(xiàng)卡,然后單擊該選項(xiàng)卡下“加載”行的事件生成器按鈕,進(jìn)入VBA代碼編輯區(qū)。
步驟2:在“'* * * * * Add2 * * * * *”區(qū)域的空白行中輸入“Form.Caption=Me.1Talbel.Caption”.在“'* * * * * Add3 * * * * *”區(qū)域的空白行中輸入“1Talbel.ForeColor=RGB(0,0,255)”,如圖4.40所示。
步驟3:單擊快速工具欄中的“保存”按鈕,然后關(guān)閉VBA代碼編輯區(qū)。
步驟4:關(guān)閉“屬性表”對話框,然后單擊快速工具欄中的“保存”按鈕。
(3)【操作步驟】
步驟1:雙擊標(biāo)尺相交處的“窗體選擇器”,打開“屬性表”對話框.在該對話框中單擊“格式”選項(xiàng)卡,在該選項(xiàng)卡下的“邊框樣式”行中選擇“細(xì)邊框”,在“滾動(dòng)條”行中選擇“兩者均無”,在“記錄選擇器”行中選擇“否”,在“導(dǎo)航按鈕”行中選擇“否”,在“分隔線”行中選擇“否”,在“關(guān)閉按鈕”行中選擇“是”,在“最大最小按鈕”行中選擇“無”,如圖4.41所示。
步驟2:關(guān)閉“屬性表”對話框。單擊快速工具欄中的“保存”按鈕。
(4)【操作步驟】
步驟1:右鍵單擊“tSub”文本框控件,在彈出的快捷菜單中選擇“屬性”命令,打開“屬性表”對話框,在該對話框中單擊“數(shù)據(jù)”選項(xiàng)卡,在該選項(xiàng)卡的“控件來源”行中輸入“=IIf(Mid([學(xué)號(hào)],5,2)=”10”,”信息”,”管理”)”,如圖4.42所示。
步驟2:關(guān)閉|“屬性表”對話框。單擊快速工具欄中的“保存”按鈕。
(5)【操作步驟】
步驟1:右鍵單擊“CmdQuit”按鈕,在彈出的快捷菜單中選擇“屬性”命令,打開“屬性表”對話框,在該對話框中單擊“事件”選項(xiàng)卡,然后單擊該選項(xiàng)卡下的“單擊”行右側(cè)的事件生成器按鈕,進(jìn)入VBA代碼編輯區(qū)。
步驟2:在“* * * * * Add1 * * * * *”區(qū)域的空白行中輸入“DoCmd.Close”,如圖4.43所示。
步驟3:單擊快速工具欄中的“保存”按鈕,然后關(guān)閉VBA代碼編輯區(qū)。
步驟4:單擊快速工具欄中的“保存”按鈕,然后關(guān)閉“設(shè)計(jì)視圖”。
微信搜索"考試吧"了解更多考試資訊、下載備考資料
相關(guān)推薦:
2017年全國計(jì)算機(jī)等級(jí)考試考前必做試題及答案匯總
各地2017年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總
2017年計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總
【費(fèi)用】各地2017年全國計(jì)算機(jī)等級(jí)考試費(fèi)用匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |