3[簡答題]

　　考生文件夾下存在一個數(shù)據(jù)庫文件“samp3.accdb”，里面已經(jīng)設計好表對象“tStud”，同時還設計出窗體對象“fStud”。請在此基礎(chǔ)上按照以下要求補充“fStud”窗體的設計。

　　(1)在窗體的“窗體頁眉”中距左邊0.4cm、距上邊1.2 cm處添加一個直線控件，控件寬度為10.5cm，控件命名為“tLine”;將窗體中標簽控件“l(fā)Talbel”上的文字改為“隸書”，字號改為18。

　　(2)打開窗體時，窗體標題自動顯示為標簽控件“1Talbel”的內(nèi)容，并且自動將該控件上的文字顏色改為“藍色”，請按照VBA代碼中的指示將代碼補充完整。

　　(3)將窗體邊框改為“細邊框”樣式，取消窗體中的水平和垂直滾動條、記錄選擇器、導航按鈕和分隔線;并且只保留窗體的關(guān)閉按鈕。

　　(4)假設“tStud”表中“學號”字段的第5位和第6位編碼代表該生的專業(yè)信息，當這兩位編碼為“10”時表示“信息”專業(yè)，為其他值時表示“管理”專業(yè)。設置窗體中名稱為“tSub”文本框控件的相應屬性，使其根據(jù)“學號”字段的第5位和第6位編碼顯示對應的專業(yè)名稱。

　　(5)在窗體中有一個“退出”命令按鈕，名稱為“CmdQuit”，其功能為關(guān)閉“fStud”窗體。請按照VBA代碼中的指示將實現(xiàn)此功能的代碼補充完整。注意：不允許修改窗體對象“fStud”中未涉及的控件、屬性和任何VBA代碼;不允許修改表對象“fstud”;程序代碼只允許在“* * * * * Add * * * * *”與“* * * * * Add * * * * *”之間的空行內(nèi)補充一行語句完成設計，不允許增刪和修改其它位置已存在的語句。

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

　　(1)【操作步驟】

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

　　步驟2：單擊“設計”選項卡下“控件”組中的“其他”下拉按鈕，選擇控件組中的“直線”按鈕，然后在窗體頁眉節(jié)的任意區(qū)域中單擊。

　　步驟3：右鍵單擊該“直線”控件，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對話框，在該對話框中單擊“全部”選項卡，在該選項卡下的“名稱”行中輸入“tLine”，在“寬度”行中輸入“10.5cm”，在“上邊距”行中輸入“1.2cm”，在“左”行中輸入“0.4cm”，如圖4.38所示。

　　步驟4：單擊“屬性表”對話框中“所選內(nèi)容的類型：”下方的文本框，在彈出的下拉列表中選擇“l(fā)Talbel”標簽，打開“l(fā)Talbel”標簽的“屬性表”對話框。在該對話框中單擊“格式”選項卡，在該選項卡的“字體名稱”行中選擇“隸書”，在“字號”行中輸入“18”，如圖4.39所示。

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

　　(2)1操作步驟】

　　步驟1：雙擊標尺相交處的“窗體選擇器”，打開“屬性表”對話框，在該對話框中單擊“事件”選項卡，然后單擊該選項卡下“加載”行的事件生成器按鈕，進入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：雙擊標尺相交處的“窗體選擇器”，打開“屬性表”對話框.在該對話框中單擊“格式”選項卡，在該選項卡下的“邊框樣式”行中選擇“細邊框”，在“滾動條”行中選擇“兩者均無”，在“記錄選擇器”行中選擇“否”，在“導航按鈕”行中選擇“否”，在“分隔線”行中選擇“否”，在“關(guān)閉按鈕”行中選擇“是”，在“最大最小按鈕”行中選擇“無”，如圖4.41所示。

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

　　(4)【操作步驟】

　　步驟1：右鍵單擊“tSub”文本框控件，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對話框，在該對話框中單擊“數(shù)據(jù)”選項卡，在該選項卡的“控件來源”行中輸入“=IIf(Mid([學號]，5，2)=”10”，”信息”，”管理”)”，如圖4.42所示。

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

　　(5)【操作步驟】

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

　　步驟2：在“* * * * * Add1 * * * * *”區(qū)域的空白行中輸入“DoCmd.Close”，如圖4.43所示。

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

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

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

2018年等考報考資訊

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

2018各科最新預測試卷

2018等考各科備考資料

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

　　相關(guān)推薦：

　　2018年全國計算機等級考試必做試題匯總(各科目)

　　2018年全國計算機等級考試復習知識點匯總(各科目)

　　2018計算機等級考試報名時間|各地報名入口|報名條件

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

　　報名方法|考試內(nèi)容|考試大綱|2018計算機等級考試科目

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