杜宜同

摘要：用VB編寫(xiě)一個(gè)單項(xiàng)選擇題批改系統(tǒng)，一方面，這個(gè)系統(tǒng)在教學(xué)中很實(shí)用，尤其在測(cè)驗(yàn)時(shí)；另一方面，由于用到了多方面的編程知識(shí)，該系統(tǒng)的編寫(xiě)可以作為VB學(xué)習(xí)的一個(gè)實(shí)踐。

關(guān)鍵詞：選擇題；批改；VB語(yǔ)言；程序設(shè)計(jì)；教學(xué)

中圖分類(lèi)號(hào)：TP311文獻(xiàn)標(biāo)識(shí)碼：A文章編號(hào)：1009-3044（2012）30-7220-04

設(shè)想一個(gè)班級(jí)平時(shí)測(cè)試，試卷全部是單項(xiàng)選擇題?？纪旰罄蠋熯M(jìn)行批改，如果是手工批改的話，還是頗費(fèi)時(shí)間的。如果有一個(gè)小軟件幫助我們，那瞬間就可以批改完畢，得出每位同學(xué)的成績(jī)。我用Visual Basic6.0編寫(xiě)了這樣一個(gè)小軟件——單項(xiàng)選擇題批改系統(tǒng)，感覺(jué)有一定的意義，不妨介紹給大家。

1 單項(xiàng)選擇題批改系統(tǒng)的實(shí)施

假設(shè)班級(jí)有40位同學(xué)

1）老師事先準(zhǔn)備好相關(guān)5個(gè)文件，放在一個(gè)文件夾內(nèi)，文件夾不妨叫做：?jiǎn)芜x批改系統(tǒng)，如圖1所示。

5個(gè)文件介紹如下：

8）假設(shè)共有40位考生，50道選擇題，每題2分，則3個(gè)文本框分別填入40，50，2，如圖7所示。

9）然后單擊“閱卷”按鈕，程序進(jìn)行試卷的批改，最后單擊“查看成績(jī)”按鈕，程序打開(kāi)chengji.txt，顯示批改后的成績(jī)。每行顯示一位同學(xué)的成績(jī)，逗號(hào)前為學(xué)號(hào)，逗號(hào)后為成績(jī)。如圖8所示。

2 單項(xiàng)選擇題批改系統(tǒng)的實(shí)現(xiàn)

這個(gè)系統(tǒng)的編寫(xiě)原理很簡(jiǎn)單：1）把每道題的標(biāo)準(zhǔn)答案和學(xué)生的回答作比較，相同則加分，不同不得分。2）比較的同時(shí)把每題得分加起來(lái)，所有題目比較完畢就得到了學(xué)生的總分。3）把學(xué)號(hào)和相應(yīng)總分寫(xiě)入chengji.txt。

顯然“閱卷”按鈕單擊事件的代碼是本程序的核心代碼，下面把這段代碼解釋如下：

以下6行定義變量

3 系統(tǒng)實(shí)現(xiàn)后的總結(jié)與思考

本系統(tǒng)進(jìn)一步擴(kuò)充，可以實(shí)現(xiàn)批改多選題及填空題。

本系統(tǒng)只是批改出了每位同學(xué)的成績(jī)，沒(méi)有對(duì)成績(jī)排序、求平均分等進(jìn)一步的處理。

沒(méi)有考慮“個(gè)別同學(xué)缺考”這種情況。

更進(jìn)一步，應(yīng)該編寫(xiě)一個(gè)在線收發(fā)批改自測(cè)系統(tǒng)。

感興趣的讀者可以思考以上問(wèn)題，也歡迎和作者聯(lián)系探討。

參考文獻(xiàn)：

[1] 沈洪，施明利，朱軍，等.VB程序設(shè)計(jì)[M].北京：清華大學(xué)出版社，2010.

[2] 林卓然.VB語(yǔ)言程序設(shè)計(jì)[M].北京：電子工業(yè)出版社，2009.

[3] 沈洪，施明利，江鴻賓.VB程序設(shè)計(jì)案例匯編[M].北京：清華大學(xué)出版社，2010.

[4] 楊忠寶，康順哲.VB語(yǔ)言程序設(shè)計(jì)教程[M].北京：人民郵電出版社，2010.

[5] 辛本柱.新手學(xué)Visual Basic[M].北京：北京希望電子出版社，2010.