用Excel VBA設計考試信息系統

莊緒德，劉志峰

1.曲阜師范大學信息網絡中心，山東曲阜 273165

2.曲阜師范大學運籌與管理學院，山東曲阜 273165

用Excel VBA設計考試信息系統

莊緒德1，劉志峰2

1.曲阜師范大學信息網絡中心，山東曲阜 273165

2.曲阜師范大學運籌與管理學院，山東曲阜 273165

高校學生期末考試，如果每場考試都采取隨機座次，并且直到入考場時學生才知道自己的座次，學生就沒有機會提前設計協同作弊。但是用手工方式實現每場考試隨機安排座位，工作量大，效率低下。使用Excel制作一個考試信息系統，能完美的完成這項工作。

Excel VBA；隨機；信息系統

1 實際工作中的問題與需要

高校學生一般都安排集中期末考試，考試都是各專業單獨組織考場，考生都是平時在一起學習的同學。如果座次直接按照學號，可以方便監考老師檢查考生到場情況，但是一直是一樣的座次不變，固定考生相鄰的時間長了，會出現協同作弊的現象，甚至出現雷同卷。雖然可以通過監考老師加強監視力度來避免，但是最好用技術的方法來解決。如果打印出學生學號姓名清單，隨機貼到座位上，但是每場考試都貼標簽，太麻煩，而且學生不容易找到自己的座位。后來采用當場抽簽的辦法，制作兩份號碼標簽，一份貼到考試座位上，另外一份讓考生抽簽，抽到后對號入座，這種方法雖然能夠實現隨機排坐，但是太費時間，監考教師手里沒有座次表，學生可以趁亂自己換標簽調座，另外如果有缺考的學生，難以查找登記。最后，我們決定還是使用計算機，進行考場安排，以達到事半功倍的效果。該設想是考場里座位上只貼號碼，有N個座位則號碼從1～N。考試前半小時隨機產生考生座次表，考試前10分鐘在考場門口張貼一張座次表，此表按學號排序，考生可快速查到自己的座位號。監考教師領一份座次表，此表按座位號排序，監考教師可快速查到每個座位上的考生，對缺考考生快速查找登記。

2 解決問題的思路

我們借助Excel電子表格實現這個工作。首先制作出學生清單，包含學號、姓名、性別等幾列，并填入實際數據。添加一列用來產生隨機數，添加另外一列，用來產生座次號。具體方法如下，在隨機數一列第一單元格插入函數rand（），或者直接輸入“=rand（）”，把這一單元格內容復制到此列其他單元格，或者使用快速填充。這樣隨機數一列所有單元格都有一個隨機數，按照隨機數列給所有行重新排序，排序完畢后，在座次號一列用1，2，3……填充，然后刪掉隨機數列，按照學號一列重新排序，這樣就把所有的考生隨機的安排到相應的座位上去。按照學號排序打印的表格就是張貼給學生查找自己座號的表格，考生可快速檢索到自己的座位。按照座號排序打印出的表格就是給監考教師核對學生入場情況的表格，只需在表格上標記出空位的座位號，便可記錄下缺考學生。如此組織考場簡潔方便，快速有序。需要說明是，如果同一次的考試安排到多個考場，比如兩個，那么這兩個考場的座次號都是從1開始。制作表格的時候，按座號排序后，再添加一列標題為考場，選取前面第一考場人數的行在考場這一列標記為第一考場，剩下的標記為第二考場另外座次號減去第一考場人數，從1開始排起。

3 編制程序，做成完整的考試信息系統

以上利用Excel實現了隨機安排考生座位，但是需要手動編輯Excel數據，手動排序打印，容易出現誤操作，并且不熟悉Excel的用戶不能勝任。我們考慮編制程序，做一個直觀的用戶界面，讓用戶能夠選擇考生范圍，輸入考場個數，考場地點，把相應的考生隨機安排到指定的考場里。這樣使用起來更加直觀，另外添加學生管理，課程管理，成績錄入，成績單打印等模塊，做成一個完整的考試信息系統。把所有學生的信息制作成一個電子表格，作為基本的數據庫，其他數據從這里提取。利用Excel VBA設計一個窗體作為程序的主界面。添加相應功能模塊的按鈕，分別編寫對應模塊的程序代碼。這里給出生成考生隨機座號的程序代碼。

[1] 趙志東.Excel VBA基礎入門[M].北京：人民郵電出版社，2006.

[2] 王萍萍，等.ASP+Dreamweaver動態網站開發[M].北京：清華大學出版社，2008.

TP31

A

1674-6708（2010）18-0140-01

曲阜師范大學科研項目，項目編號：XJ0721