老師們經常用PPT來制作教學課件，現在很多學校都期末考試了，當然也有的職業中學正準備進行期末考試。想想如何對學生進行測驗和考試，我們用PowerPoint2003制作了電子考卷系統。其中主要使用了VBA功能，下面我們就來看看如何在PowerPoint中制作電子考卷。

打開PPT新建空白文檔，我們先保存文檔，點擊“視圖→工具欄→VisualBASIC”打開VisualBASIC工具欄，點擊“控件工具箱”調出控件工具箱，在“控件工具箱”中點擊“命令按鈕”，用鼠標在空白幻燈片上拖出一個大小適合的按鈕，即“CommandButton1”，在按鈕上點擊鼠標右鍵并選擇“屬性”，在“CommandButton1”的屬性框中把它的Caption（標題）改為“輸入學生姓名”，并在按鈕下方插入文本框（點擊“插入→文本框→水平”即可實現）并輸入第1題的題目，再點選控件工具箱中的“選項按鈕”制作一選擇按鈕，并右鍵打開其屬性，將Caption里的“OptionButton1”改為“A”，再將這個按鈕復制三個，分別將Caption的值改為B、C和D，最后加入一動作按鈕（點擊“幻燈片放映→動作按鈕→前進或下一項”即可插入），當做完本題后能進入到下一題。

小提示
如果要把記錄的文本保存在指定文件夾中，只需在Open語句后加上相應路徑，如“Open"d:\exam"&xm&".txt"ForAppendAsnf”即可在D盤的exam文件夾中建立文本文件。

試卷頭的制作

要記錄學生所做的試題答案和統計得分，要定義公用的數組和變量，雙擊“輸入學生姓名”按鈕打開MicrosoftVisualBasic（VBA）窗口，點擊“插入→模塊”，并在“演示文稿1－模塊1（代碼）”窗口中進行輸入：
publicxmasstring
publicda(50)asstring
publicdf(50)asinteger
其中xm變量用于記錄考生姓名，數組da(50)用于記錄考生各題所選擇的答案，df(50)數組用于記錄各個答案的得分。這里設置的數組上界是50，如果題目更多，可加大。對于xm，我們可以用InputBox()函數來記錄考生姓名，再把值賦給xm，即xm=InputBox("輸入考生姓名")。

試題的制作
為每個題目的各個答案輸入記錄答案和得分代碼，雙擊答案A選項輸入代碼即可.

小知識
為了防止考生在考試時查看源代碼，可在代碼編寫視圖（雙擊任一個選項按鈕即可打開）下點擊“視圖→工程資源管理器”，用鼠標右鍵點“VBAProject”，選擇“VBAProject屬性”，在“保護”標簽卡中選中“查看時鎖定工程”，再輸入密碼即可保護。

制作交卷頁

試卷做完了，當然得提交查看成績。在最后一題的幻燈片中就沒有進入到下一題的按鈕了，而是“交卷”按鈕，雙擊這個按鈕，輸入如下代碼：
PrivateSubCommandButton1_Click()
Dimi,j,s,nfAsInteger
nf=FreeFile
s=0
Fori=1To50'累加各題，試題數有幾個，就將50改為相應的數字。
s=s+df(i)

Next
Openxm&".txt"ForAppendAsnf'用輸入的姓名作文件名，在當前文件夾中建立一個文本文件。
Forj=1To50'把各個題號和所選擇的答案按順序寫入到這個文本文件中去，這里的50應該改成試題數。
Print#nf,Str(j)&da(j);
Nextj
Print#nf,Str(s)'把得分寫入到文本文件的最后。
Closenf
EndSub
這段代碼使用VBA的文本文件功能記錄考生各個題目所選擇的答案和得分，實現了自動判卷。電子考卷系統下載地址：/soft/UploadFile/2008-10/200810911201461577.rar
打開考試系統時點擊“啟動宏”，按F5鍵開始考試。答完后點擊“交卷”即可在相應目錄下找到以考生命名的文本文件，最后數字即為得分。