李旭東

摘 要：隨著本科課程考核方式改革的深化，許多高等院校已紛紛改變了傳統(tǒng)的只注重一次性結果評價的形態(tài)并向注重過程評價的形態(tài)轉變。教師在教學過程中加強了課程的過程考核。當前，任課教師對學生課程平時成績的換算，主要還是靠手工進行的。因而，當多種形式的考核方式被采用，又當學生平時考核次數比較多的時候，任課教師對學生課程平時成績的換算將非常耗時費力。為此，本文基于教務管理系統(tǒng)中的學生平時成績登記表格，利用Excel VBA實現了教師對學生課程平時成績的自動化換算，將任課教師從繁重的學生課程平時成績換算的手工勞動中解放出來，大大提高了工作效率。

關鍵詞：學生成績；平時成績；成績換算；Excel表格；VBA

中圖分類號：TP311.1 文獻標志碼：A 文章編號：1673-8454（2014）20-0081-04

一、 引言

隨著本科課程考核方式改革的深化，許多高等院校紛紛改變傳統(tǒng)的只注重一次性結果評價的形態(tài)并向注重過程評價的形態(tài)轉變。[1-2] 教師在教學過程中加強了課程的過程考核，通過平時考核，對學生日常學習情況及效果進行評定。通過教師加強日常考核，促使學生轉變學習方式，調動學生學習主動性，培養(yǎng)良好的學習習慣，促進教師根據日?？己私Y果及時調整完善教學內容與方式，提高課堂教學效果與人才培養(yǎng)質量。

對學生的平時考核可采用多種考核方式，如課堂提問、課堂辯論、課堂測驗、隨堂作業(yè)、課后作業(yè)、大型作業(yè)、階段測試、專題研討、讀書報告、小論文、文獻綜述、調查報告、項目設計、實踐操作技能情況等形式。當多種形式的考核方式被采用，又當學生平時考核次數比較多的時候，學期末任課教師對學生課程平時考核登記結果的整理和換算將是讓教師非常頭痛的事，特別是當學生數量較多的時候，因為當前教師對學生課程平時成績的換算主要還是靠手工進行的。

為了將任課教師從繁重的學生課程平時成績換算的手工勞動中解放出來，本文將基于教務管理系統(tǒng)中的學生平時成績登記表格（Excel表格），利用Excel VBA[3]開發(fā)環(huán)境及其強大功能來實現教師對學生課程平時成績的自動化換算。

二、 學生課程平時成績自動換算的基礎

1.學生課程平時考核結果的電子化登記

為能利用Excel VBA來實現教師對學生課程平時成績的自動化換算，首先，教師對學生課程平時考核結果須采用Excel電子表格文檔的形式進行登記。

一般的，各個高校各自的教務管理信息系統(tǒng)均有帶學生名單的平時考核登記表提供給課程任課教師，其中，以Excel電子表格的形式居多。倘若校方沒有Excel形式的學生課程平時考核登記表提供，則任課教師須自己制作一份Excel形式的平時考核登記表。

2.量化或可量化登記

對學生課程平時考核結果的登記，最為直接的形式就是采用百分制或十分制等的分數，也就是量化登記。但更多的，教師會選擇采用等級制的方式進行登記，如：優(yōu)秀、良好、中等、及格、不及格，甲、乙、丙、丁、戊，A、B、C、D、E，等等。由于等級制的每種等級均可以對應特定的分數，因此，采用等級制的方式進行登記，就稱之為可量化登記。

量化或可量化的登記方式，均適用于本文利用Excel VBA實現的對學生課程平時成績的自動化換算。

三、對學生課程平時成績自動換算的實現

本文以“正方教務管理系統(tǒng)”導出的Excel形式的學生課程平時成績記錄表為例，來描述利用Excel VBA實現對學生課程平時成績的換算。本文所使用的Excel軟件的版本為Excel 2003。

1.學生課程平時成績記錄表的格式

圖1所示為正方教務管理系統(tǒng)導出的Excel形式的學生課程平時成績記錄表。表格的前4行分別給出了表頭信息、學期信息、課程名稱、學分數、任課教師信息。表格的第5、6行，分別給出了表格的標題信息：班級名稱、學號、姓名、幾項平時考核名稱（課堂紀律、課堂問答和討論、作業(yè)和測試、期中考試、實驗成績）；其中課堂紀律6次、課堂問答和討論5次、作業(yè)和測試10次，其余均為單次。表格從第7行開始，就是學生具體的班級名稱、學號、姓名等，課程有多少學生修讀就有多少行。表格中的關鍵是，有多次平時考核的項（課堂紀律、課堂問答和討論、作業(yè)和測試）的最右側有個“成績”子項，本文就是針對此項進行多次平時考核的成績換算。

2.Excel動態(tài)菜單的設計與實現

欲實現對學生課程平時成績的自動換算，須有執(zhí)行該任務命令的入口和途徑。為此，本文采用Excel動態(tài)菜單[4]的形式來實現，實現的效果如圖2所示，其詳細實現步驟如下：

（1）在打開學生課程平時成績記錄表的狀態(tài)下，依次點擊Excel的菜單“工具”、“宏”、“Visual Basic 編輯器”，進入Excel VBA設計界面。

（2）在Excel VBA設計界面的工程資源管理器中找到ThisWorkbook對象，雙擊其以進入對其進行VBA編程的環(huán)境。

（3）在VBA編程環(huán)境中，選取Workbook的Open事件，并在系統(tǒng)生成的Workbook_Open空事件處理過程中鍵入如下代碼：

Dim NewMenu As CommandBarPopup

Dim MenuItem As CommandBarControl

Set NewMenu = Application.CommandBars（1）.Controls.Add （msoControlPopup， ， ， ， True）

NewMenu.Caption = "成績換算（&C）"

Set MenuItem = NewMenu.Controls.Add（msoControlButton）