摘要：本文介紹一種基于Excel內(nèi)核的VBA編程方法來擴(kuò)展Excel的功能，以實現(xiàn)學(xué)?？荚囍锌紙鲎坏闹悄芫幣?。

關(guān)鍵詞：Excel；考場排座；VBA編程

中圖分類號：G642 文獻(xiàn)標(biāo)識碼：B

文章編號：1672-5913(2007)10-0009-03

考試風(fēng)氣是衡量一個學(xué)校的校風(fēng)學(xué)風(fēng)的核心依據(jù)之一，是全面檢查教與學(xué)兩方面情況的重要環(huán)節(jié)，是教學(xué)質(zhì)量和教學(xué)效果反饋的重要手段。通過考試既可以檢查學(xué)生的學(xué)習(xí)情況、了解學(xué)生對所學(xué)知識和技能的理解程度和應(yīng)用能力，促使學(xué)生改進(jìn)學(xué)習(xí)方法，又可檢查教師的教學(xué)效果，促使教師總結(jié)教學(xué)經(jīng)驗、改進(jìn)教學(xué)方法[1]。

但是，高校學(xué)生考試作弊問題一直困擾學(xué)校的管理者。在“大學(xué)生考試作弊情況調(diào)查分析及對策”[2]一文中提到通過對1200名在校大學(xué)生進(jìn)行抽樣問卷調(diào)查，得出引發(fā)大學(xué)生考試作弊動機(jī)的原因之一是管理因素，主要是考場管理松懈?！翱荚嚬芾聿粐?yán)，給作弊者有機(jī)可乘”被認(rèn)為是最終導(dǎo)致考試作弊發(fā)生的主要原因（占50.9％）。而串通作弊是考場作弊的主要手段，一般發(fā)生在關(guān)系親密的同學(xué)之間，好講江湖義氣，他們會事先約定座位及作弊方法，所以監(jiān)考老師通常在安排考場時，把學(xué)生序號打亂，使熟人之間的座位盡量隔開，希望從根本上杜絕串通作弊的現(xiàn)象，譬如像中考、高考、研究生考試和外語水平考試等大規(guī)模而且關(guān)系重大的考試中，組織者非常注意座位的安排。但人工安排座位具有主觀性，效率低、質(zhì)量差，難免顧此失彼。

就目前城市學(xué)院來說，應(yīng)該承認(rèn)絕大多數(shù)學(xué)生是講誠信的，能夠遵守考場紀(jì)律，但防范總是比事后的補(bǔ)救更有效，而且防范的最終目的是為了愛護(hù)學(xué)生。城市學(xué)院目前的做法是考試前監(jiān)考老師領(lǐng)取“浙江大學(xué)城市學(xué)院教室座位表”，并填寫這張座位表，考生進(jìn)入考場按這張座位表就坐，這樣做一方面給監(jiān)考老師增加了額外的負(fù)擔(dān)，另一方面更重要的是由于很多老師填寫這張座位表時采用簡單的按學(xué)號順序橫向填寫或逆序填寫，這樣座位的隨機(jī)性不好，給一些同學(xué)有了可乘之機(jī)。采用計算機(jī)來安排考場座次就能很好地解決這個問題。為此，我們設(shè)計了一個簡單易行、高效而且通用的算法，希望能在實踐中得到檢驗和完善。

1系統(tǒng)開發(fā)工具

Excel是Microsoft Office中的重要組件之一，是許多用戶喜歡使用的電子表格軟件，它具有較強(qiáng)的計算功能和數(shù)據(jù)管理功能，在學(xué)校工作中有著廣泛的應(yīng)用。Excel不僅具有強(qiáng)大的制表功能，同時還內(nèi)置了系統(tǒng)開發(fā)工具VBA（Visual Basic for Application）。利用VBA，可以直接對Excel對象進(jìn)行編程，從而提高Excel的利用效率。

VBA是用于開發(fā)應(yīng)用程序的Basic語言，因此在編程方法、對象使用上與Visual Basic完全相同。所不同的是VBA不是一個獨立存在的語言，它必須基于一個主應(yīng)用程序，例如，基于Microsoft Excel的VBA。實際上VBA用于Excel時并沒有加入Excel的特有的成分，Excel通過一個叫做對象庫的特殊命令集對VBA顯示出它的能力，如圖1所示[3]：

在Microsoft Office中，VBA作為一個完整的開發(fā)工具，是Microsoft Office套件的共享組件。在Excel中使用VBA程序可以大大擴(kuò)展Excel的功能，它使得用Excel完成一個管理系統(tǒng)的工作變得完全可能。

2系統(tǒng)特色

本系統(tǒng)以Excel為操作平臺，符合大多數(shù)人的使用習(xí)慣。用戶既可以通過系統(tǒng)界面提高工作效率，也可以通過Excel界面直接操作。用Excel + VBA編制的程序與Excel工作表同存于Excel的工作簿文件中，文件、文件夾的復(fù)制意味著系統(tǒng)數(shù)據(jù)與程序的完全復(fù)制。因此，本系統(tǒng)為綠色軟件，不需要進(jìn)行系統(tǒng)安裝就可以直接運行。

3系統(tǒng)開發(fā)

在系統(tǒng)開發(fā)過程中，首先考慮的是如何對考生產(chǎn)生隨機(jī)入座序列，方法是給定考生學(xué)號和姓名，對每個考生產(chǎn)生一個1~100000之間的隨機(jī)數(shù)，以這個隨機(jī)數(shù)為關(guān)鍵字段對考生排序，這樣就產(chǎn)生了考生序列，每次啟動排序都產(chǎn)生不同的隨機(jī)數(shù)，確?？忌蛄杏泻芎玫碾S機(jī)性，然后把考生按序編入已設(shè)計好的相應(yīng)考場座位表中。

For i=2 To rs+1

myWorkbooks.Worksheets(\"界面\").Cells(i，3) = Int(100000 * Rnd)

Next i

Sheet1.Range(Cells(2， 1)， Cells(i， 3)).Sort Key1:=Range(\"C2\")

其次要注意的是考場的座位布局，城院的教室以124座的普通教室最多，但還有其他幾種類型的考場，在系統(tǒng)設(shè)計的時候注意到軟件的實用性，把所有的教室類型都考慮到，供用戶進(jìn)行選擇。

第三要考慮的是教室的容量是限定的，如最常見的教室類型最多只能安排60位考生，當(dāng)考生人數(shù)超過額定座位數(shù)的時候怎么辦呢？我們選擇的方法是自動分若干考場，如考生人數(shù)為230人，且選擇了60人的考場，則自動產(chǎn)生考場座位表1，考場座位表2，考場座位表3，考場座位表4這四張工作表，并且在填入內(nèi)容時，可選擇填入學(xué)號或姓名，甚至可同時選擇填入學(xué)號和姓名。

第四要考慮的是可人為地選擇考場中考生就坐位置，如安排第一列，第三列，第五列為考生入座，也可限定第二行，第四行等不準(zhǔn)考生入座，程序通過判斷該座位是“＊”還是空格來決定是否安排考生入座。

最后是打印表單。系統(tǒng)中設(shè)定頁面為橫向，打印份數(shù)1份，把所有考場信息一次性打印。還設(shè)置了打印預(yù)覽，符合了大多數(shù)用戶的使用習(xí)慣。

mysheetname = \"考場座位表\"

myworksheetcout = myWorkbooks.Worksheets. Count

For i = 1 To myworksheetcout - 1

With myWorkbooks.Worksheets(mysheetname + Str(i))

.PageSetup.Orientation = xlLandscape

.PrintPreview

End With

myWorkbooks.Worksheets(mysheetname + Str(i)).PrintOut Copies:=1， Collate:=True

Next i

4系統(tǒng)使用說明

啟動Excel，載入“排座軟件”，選擇啟用宏，首先看到的是如圖2所示的啟動界面。

這是一張工作表，在這張工作表的開頭是系統(tǒng)說明，提示在A3單元格開始粘貼考生學(xué)號及姓名；填寫D3-G3單元格中的使用教室、考試課程、考試時間、考試班級、若有多個考場，則把使用教室列在D3列后面；單擊“Show Userform”按鈕后顯示用戶窗口，如圖3所示。

系統(tǒng)計算并顯示考生人數(shù)，請用戶選擇教室類型及排座記錄方式，單擊“啟動排序”按鈕系統(tǒng)按照所選教室類型及排座記錄方式生成考場座位表如圖4所示。若對排序結(jié)果不滿意，可重新指定單元格為“＊”，也可以把原來的“＊”清除，選擇“繼續(xù)排序”，系統(tǒng)就顯示新的排序結(jié)果，如此可以不斷重復(fù)，直到滿意為止。最后單擊“打印表單”按鈕，打印考場坐位表。系統(tǒng)運行結(jié)束時單擊“結(jié)束”按鈕。在排序過程中若出現(xiàn)缺少考生名單或在繼續(xù)排序過程中考生人數(shù)超過可坐座位數(shù)，系統(tǒng)都會有相應(yīng)錯誤提示，使得軟件的使用具有較好的人機(jī)交互界面。

5討論

通過編制一個計算機(jī)程序很好地解決了學(xué)校組織考試時座位的編排，提高了工作效率，也減輕了監(jiān)考老師的負(fù)擔(dān)。本程序是我們的一次小嘗試，還存在著諸多不足，特別是原始數(shù)據(jù)要求粘貼到Excel表中，而我們目前的考生名單數(shù)據(jù)是直接放在網(wǎng)頁上的，要利用這個排座軟件意味著需手工從網(wǎng)上下載數(shù)據(jù)再轉(zhuǎn)換成Excel格式；其次城市學(xué)院目前共有七種教室布局類型，程序中需要對每一種教室布局進(jìn)行描述；另外要進(jìn)一步提高程序的通用性，能通過簡單方法增加新的教室類型，或者當(dāng)用戶輸入教室號碼時系統(tǒng)自動識別教室布局類型。所有這些都是需要進(jìn)一步改進(jìn)和提高的地方。

參考文獻(xiàn)

[1] 陳一女. 論高校的考試管理[J]. 浙江萬里學(xué)院學(xué)報，2004，10(5).

[2] 胡禮祥，應(yīng)飚. 大學(xué)生考試作弊情況調(diào)查分析及對策[J]. 思想理論教育，2000，(3).

[3] 李曉玫，楊小平. Excel中的VBA程序設(shè)計[J]. 四川師范大學(xué)學(xué)報(自然科學(xué)版)，2004，7(4).

收稿時間：2006-12-27

作者簡介：謝紅霞，女，浙江大學(xué)城市學(xué)院計算機(jī)與計算科學(xué)學(xué)院講師

E-mail：xiexh@zucc.edu.cn