利用VBA進行計算機基礎教學的練習自動評價評分

摘 要：利用Office提供的VBA功能，實現Office操作題的自動評價及評分。

關鍵詞：自動評價；VBA；宏；Word

可以利用VBA技術編寫程序代碼，讓系統自己能夠及時自動地對學生的操作題進行評價，指出錯誤原因，解決信息技術教師在實際教學中對學生操作出現問題時的反饋跟蹤難題。以此來提高課堂教學的有效性，提高學生對學習的積極性。

1 技術基礎

在Microsoft Office中集成有VBA（Visual Basic for Applications）標準宏語言，它是基于Visual Basic發展而來的，提供了相當完整的程序設計語言。VBA提供了訪問Office 文檔的接口，包含有大量針對該類文檔的函數和對象。在WORD文檔VBA編程中，最經常用到的對象就是以下幾個：段落設置由Paragraph對象獲得。比如Paragraph對象的FirstLine Indent屬性表示段落首行縮進。字體設置信息由Font對象獲得，比如Font對象的Name 、Size 、Color屬性分別表示段落中文字的字體、字號和字的顏色。利用VBA編程可以對Office文檔中各對象（比如段落、字體等）的屬性和狀態進行識別和讀取，并與事先規定的操作要求進行對比判斷后自動評分。在使用VBA編程之前，你應該對宏、VBA、面向對象、方法、屬性等概念有所了解，作為一名計算機教師來說，這些應該是不困難的。要想詳細了解VBA中的層次結構以及各個對象的基本屬性，可從網上下載Office_vba編程手冊合集（CHM）.rar。

2 對Word文檔的自動評價及評分

接下來以一個Word操作練習為例，展示利用簡單的IF-then判斷語句寫出的VBA程序代碼來實現對WORD文檔操作結果的自動評分與評價。練習素材共有6個操作要求，每個操作要求都有相應的分數，此練習共20分。

例如操作1：設置文章標題字體為仿宋（1分）、三號（1分）、加粗（1分），對齊方式為居中對齊（1分）；

然后在練習素材的Word文檔的最后加入一個命令按鈕和標簽控件，直接雙擊命令按鈕即進入VBA編輯器當中，寫入代碼，并對宏的安全性設置為低，以便能運行VBA代碼。由于篇幅限制，本文只列出判斷操作1的代碼片段。

With ActiveDocument.Paragraphs（1）.Range

If .Font.Name = \"仿宋\" Then

score = score + 1

Else

inform = inform + \"標題字體設置錯誤。\"

End If

If .Font.Size = 16 Then

score = score + 1

Else

inform = inform + \"標題字體大小設置錯誤。\"

End If

If .ParagraphFormat.Alignment = wdAlignParagraphCenter Then

score = score + 1

Else

inform = inform + \"標題對齊方式設置錯誤。\"

End If

If .Font.Bold = True Then

score = score + 1

Else

inform = inform + \"沒有加粗。\"

End If

End With

If score = 4 Then inform = inform + \"正確。\"

將此練習文檔與題目要求發給學生練習，學生做完后點擊查看按鈕，即可即時查看到所做內容的對錯與得到的分數。

這樣一來，哪里對哪里錯，一目了然，及時反饋。極大地方便學生的自主學習，提高了教學效率。

如果覺得直接編寫以上這些VBA代碼顯得繁瑣與麻煩，也可以采用錄制宏的辦法來幫助減少編程的工作量。單擊菜單“工具→宏→錄制新宏”，然后教師按題目要求對文檔進行正確的操作，操作完成后停止錄制。接著單擊菜單“工具→宏→宏”選擇剛才錄制的宏，對它進行編輯查看。然后再對代碼作相應的修改后（主要是用IF……THEN……進行判斷）復制粘貼到“命令按鈕”中，這可以大大減輕教師的編寫VBA代碼的負擔。

3 結束語

本文僅以Word為例加以說明，實際上這種方法還適用于Excel、Powerpoint這二類Office文檔的自動評價評分。只要認真閱讀或查閱Office_vba編程手冊合集（CHM）就能知道Office各文檔的對象、方法、屬性，并加以利用，再適當利用宏錄制功能，就能實現對于Office文檔的自動評價評分，極大的提高學生自主學習積極性，及時反饋學習效果，也方便教師對于學生的練習作業的批改。

[參考文獻]

[1]李文江.利用VBA實現對Word文檔的自動評分[J].重慶文理學院學報，2007，26（2）：73-77.

[2]廖恩揚.面向對象對Office文檔操作自動評分[J].計算機應用，2002，22（8）：119-120.