3[簡答題]

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

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

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

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

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

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

　　參考解析：【考點分析】本題考點：設置窗體和控件屬性，增加窗體控件，編碼設置窗體命令按鈕的單擊事件。 【解題思路】第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：單擊“屬性表”對話框中“所選內容的類型：”下方的文本框，在彈出的下拉列表中選擇“l(fā)Talbel”標簽，打開“l(fā)Talbel”標簽的“屬性表”對話框。在該對話框中單擊“格式”選項卡，在該選項卡的“字體名稱”行中選擇“隸書”，在“字號”行中輸入“18”，如圖4.39所示。

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

　　(2)1操作步驟】

　　步驟1：雙擊標尺相交處的“窗體選擇器”，打開“屬性表”對話框，在該對話框中單擊“事件”選項卡，然后單擊該選項卡下“加載”行的事件生成器按鈕，進入VBA代碼編輯區(qū)。

　　步驟2：在“'* * * * * Add2 * * * * *”區(qū)域的空白行中輸入“Form.Caption=Me.1Talbel.Caption”.在“'* * * * * Add3 * * * * *”區(qū)域的空白行中輸入“1Talbel.ForeColor=RGB(0，0，255)”，如圖4.40所示。

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

　　步驟4：關閉“屬性表”對話框，然后單擊快速工具欄中的“保存”按鈕。

　　(3)【操作步驟】

　　步驟1：雙擊標尺相交處的“窗體選擇器”，打開“屬性表”對話框.在該對話框中單擊“格式”選項卡，在該選項卡下的“邊框樣式”行中選擇“細邊框”，在“滾動條”行中選擇“兩者均無”，在“記錄選擇器”行中選擇“否”，在“導航按鈕”行中選擇“否”，在“分隔線”行中選擇“否”，在“關閉按鈕”行中選擇“是”，在“最大最小按鈕”行中選擇“無”，如圖4.41所示。

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

　　(4)【操作步驟】

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

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

　　(5)【操作步驟】

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

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

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

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

掃描/長按二維碼幫助考試通關

2017等考考試報名信息

2017等考各科通關技巧

2017各科最新預測試卷

2017等考各科真題答案

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

　　相關推薦：

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

　　各地2017年全國計算機等級考試報名時間匯總

　　2017年計算機等級考試備考經驗及應試技巧匯總

　　【費用】各地2017年全國計算機等級考試費用匯總

　　各地2017年全國計算機等級考試準考證打印時間匯總

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