用EXCEL中的VBA編寫(xiě)“試卷分析”程序

段顯德，王艷紅，楊信東

(1遼東學(xué)院 農(nóng)學(xué)院，遼寧 丹東 118001；2吉林農(nóng)業(yè)大學(xué) 測(cè)試中心；3吉林農(nóng)業(yè)大學(xué) 農(nóng)學(xué)院)

試卷分析是考試過(guò)程中的重要環(huán)節(jié)，試卷分析可以提供許多重要信息，對(duì)指導(dǎo)教學(xué)、評(píng)估考試質(zhì)量、改進(jìn)教學(xué)工作具有重要意義[1].利用計(jì)算機(jī)處理試卷數(shù)據(jù)，可以大大提高工作效率、規(guī)范處理過(guò)程，減少差錯(cuò)，具有很強(qiáng)的實(shí)用價(jià)值.盡管市場(chǎng)已有試卷分析專(zhuān)用軟件供應(yīng)，但因多種因素限制，都未得到普及，目前還有許多學(xué)校該項(xiàng)工作仍以手工方式進(jìn)行[2-3].鑒于此，筆者采用一種基于Excel的VBA編程方法，編寫(xiě)了試卷分析計(jì)算機(jī)程序，可在所有配備Offic2000以上版本的計(jì)算機(jī)上使用，現(xiàn)將該程序的源代碼及使用方法發(fā)表出來(lái)，供廣大教師參考使用.

1 EXCEL中的VBA語(yǔ)言的特點(diǎn)

Excel是Microsoft Office家族成員，它不但提供了強(qiáng)大的計(jì)算功能及表格功能，還提供了宏語(yǔ)言Visual Basic for Application(VBA)，為廣大用戶(hù)提供了一個(gè)新的、更高層次的二次開(kāi)發(fā)平臺(tái)[4,5].

VBA用Office作為開(kāi)發(fā)平臺(tái)的主要優(yōu)點(diǎn)：①Office本身功能強(qiáng)大，正因?yàn)閂BA用Office作為開(kāi)發(fā)平臺(tái)，所以編寫(xiě)出的VBA程序的功能強(qiáng)大而且占用內(nèi)存極小.②無(wú)需考慮運(yùn)行環(huán)境，因?yàn)镺ffice是普遍配備的應(yīng)用軟件.③Office界面為大家熟悉，便于軟件推廣應(yīng)用.

2 “試卷分析”VBA程序的源代碼及下載、應(yīng)用方法

(1)VBA程序的源代碼.

Private Sub CommandButton1_Click()

Dim an As Integer

Dim aj As Single

Dim as2 As Single

Dim as1 As Single

Dim c As Single

Dim a(0 To 999)As Single

Dim z(0 To 9)As Single

Dim y(0 To 9)As Single

Dim i As Integer

Cells(1，1).Value=(“每個(gè)考生的分?jǐn)?shù)”)

Cells(1，2).Value=(“參考學(xué)生人數(shù)”)

Cells(1，3).Value=(“平均分”)

Cells(1，4).Value=(“標(biāo)準(zhǔn)差”)

Cells(1，5).Value=(“難度系數(shù)”)

Cells(1，6).Value=(“最高分”)

Cells(1，7).Value=(“最低分”)

Cells(1，8).Value=(“分?jǐn)?shù)全距”)

an=InputBox(“請(qǐng)輸入?yún)⒖紝W(xué)生人數(shù)”)

Cells(2，2).Value=an

a0=0

a1=0

x0=0

x1=100

For i=1 To an

a(i)=InputBox(“請(qǐng)輸入每個(gè)考生的分?jǐn)?shù)值”)

Cells(1+i，1).Value=a(i)

If a(i)>x0 Then x0=a(i)

If a(i)

If a(i)>89 Then z9=z9+1:GoTo 1000

If a(i)>79 Then z8=z8+1:GoTo 1000

If a(i)>69 Then z7=z7+1:GoTo 1000

If a(i)>59 Then z6=z6+1:GoTo 1000

If a(i)>49 Then z5=z5+1:GoTo 1000

If a(i)>39 Then z4=z4+1:GoTo 1000

If a(i)>29 Then z3=z3+1:GoTo 1000

If a(i)>19 Then z2=z2+1:GoTo 1000

If a(i)>9 Then z1=z1+1:GoTo 1000

If a(i)>0 Then z0=z0+1:GoTo 1000

1000 a0=a0+a(i)

a1=a1+a(i)^2

Next i

aj =a0/an

Cells(2，3).Value=aj

as2=(a1-(a0^2)/an)/(an-1)

as1=Sqr(as2)

Cells(2，4)Value=as1

c=100-aj

Cells(2，5).Value=c

Cells(2，6).Value=x0

Cells(2，7).Value=x1

Cells(2，8).Value=x0-x1

w=z9+z8+z7+z6+z5+z4+z3+z2+z1+z0

w1=z5+z4+z3+z2+z1+z0

z(9)=z9：z(8)=z8：z(7)=z7：z(6)=z6：z(5)=z5

z(4)=z4：z(3)=z3：z(2)=z2：z(1)=z1：z(0)=z0

y(9)=z9/w：y(8)=z8/w：y(7)=z7/w：y(6)=z6/w：y(5)=z5/w

y(4)=z4/w y(3)=z3/w:y(2)=z2/w:y(1)=z1/w:y(0)=z0/w

Cells(1，9).Value= (“不同分?jǐn)?shù)段”)

Cells(1，10).Value=(“各分?jǐn)?shù)段的人數(shù)”)

Cells(1，11).Value= (“各分?jǐn)?shù)段人數(shù)的百分比”)

For i =0 To 9

Cells(i+2，9).Value=(i*10+1&“-”&i*10+9&“的分?jǐn)?shù)段”)

Cells(i+2，9).Value= (i *10+1&“-”& i*10+9 &“的分?jǐn)?shù)段”)

Cells(i+2，10).Value=z(i)

Cells(i + 2，11).Value=y(i) *100

Next i

Cells(11，9).Value= (90 &“-”&100 &“的分?jǐn)?shù)段”)

Cells(12， 9).Value= (“不及格的分?jǐn)?shù)段”)

Cells(12，10).Value=w1

Cells(12，11).Value=(w1/w)*100

End Sub

(2)“試卷分析”VBA程序的下載方法.①運(yùn)行環(huán)境：Win2003，WinXP，Win2000，NT，WinME，Win9X.

②下載源程序的方法：在任意用戶(hù)計(jì)算機(jī)的屏幕上，點(diǎn)擊Excel文件，打開(kāi)Excel工作簿，先在工作簿上添加一個(gè)按鈕.方法如下：打開(kāi)Excel工作簿，點(diǎn)擊主菜單中的“視圖(V)”選項(xiàng)，則出現(xiàn)一下拉菜單，選擇并點(diǎn)擊“工具欄”，則又出現(xiàn)一下拉菜單，選擇并點(diǎn)擊“控件工具箱”，則在Excel工作簿上出現(xiàn)一“控件工具箱”的平面圖示，選擇并點(diǎn)擊此圖的第4行(共9行)，第1列(共2列)，則計(jì)算機(jī)光標(biāo)變成“+”形，點(diǎn)鼠標(biāo)右鍵，會(huì)出現(xiàn)一個(gè)下拉菜單，選擇并點(diǎn)擊“粘貼”，就會(huì)在Excel工作簿上出現(xiàn)我們所要的按鈕，可以移動(dòng)按鈕到適當(dāng)位置.在這個(gè)按鈕上點(diǎn)鼠標(biāo)右鍵，在彈出的菜單中選“查看代碼(V)”，Excel會(huì)自動(dòng)把源代碼編輯框打開(kāi)，并定位光標(biāo).然后把本文所寫(xiě)的源代碼全部粘貼入光標(biāo)位置，并刪去多余的首尾行.按鈕上的標(biāo)簽文字可以隨時(shí)更改.

再有，應(yīng)正確設(shè)置Excel中“宏”的安全性等級(jí)：打開(kāi)Excel工作簿，點(diǎn)擊主菜單中的“工具”選項(xiàng)，在拉菜單中，選擇并點(diǎn)擊“宏”，出現(xiàn)下拉菜單，點(diǎn)擊“安全性”，并選擇點(diǎn)擊“中”即可.

最后“保存”新獲得的Excel文件.

③“試卷分析”VBA程序文件的再拷貝：上述工作完成后，此Excel文件即成為一個(gè)工作模板，可以任意復(fù)制、粘貼或通過(guò)e-mail郵寄等方式進(jìn)行傳播、拷貝.

此Excel文件所占內(nèi)存僅為60k，和其它任何有類(lèi)似功能的軟件相比，都要小得多.

(3)“試卷分析”VBA程序的應(yīng)用步驟.打開(kāi)Excel(“試卷分析”VBA程序)工作簿(在此過(guò)程中，若計(jì)算機(jī)屏幕顯示對(duì)話(huà)框，則應(yīng)選擇并點(diǎn)擊“啟用宏” )，單擊程序啟動(dòng)按鈕，則程序開(kāi)始運(yùn)行.

計(jì)算機(jī)屏幕依次出現(xiàn)對(duì)話(huà)框，請(qǐng)輸入“參考學(xué)生人數(shù)”，請(qǐng)輸入“各考生分?jǐn)?shù)值”，按照計(jì)算機(jī)的提示，輸入相應(yīng)數(shù)據(jù)后，計(jì)算機(jī)依次在屏幕上將各輸入數(shù)據(jù)顯示出來(lái)，我們可以核對(duì)輸入的數(shù)據(jù)準(zhǔn)確與否.

之后，計(jì)算機(jī)自動(dòng)運(yùn)算，依次輸出: 平均分、標(biāo)準(zhǔn)差、難度系數(shù)、最高分、最低分、分?jǐn)?shù)全距， 不同分?jǐn)?shù)段 (1-9的分?jǐn)?shù)段、11-19的分?jǐn)?shù)段、21-29的分?jǐn)?shù)段、31-39的分?jǐn)?shù)段、41-49的分?jǐn)?shù)段、51-59的分?jǐn)?shù)段、61-69的分?jǐn)?shù)段、71-79的分?jǐn)?shù)段、81-89的分?jǐn)?shù)段、91-100的分?jǐn)?shù)段；不及格的分?jǐn)?shù)段)，各分?jǐn)?shù)段的人數(shù)、各分?jǐn)?shù)段人數(shù)占總?cè)藬?shù)的百分比，即為我們所要求得的結(jié)果.

3 結(jié)語(yǔ)

用戶(hù)通過(guò)該軟件將學(xué)生的考試成績(jī)錄入后，馬上就可以分析出試卷的考試質(zhì)量.使用簡(jiǎn)單、方便，分析快速、準(zhǔn)確，可為老師節(jié)省大量的時(shí)間.

本軟件不僅可以用于高校的試卷分析，也適合于中小學(xué)的試卷分析.

如果有的學(xué)校要求提供更多信息的試卷分析計(jì)算機(jī)軟件，也可以在上述軟件的基礎(chǔ)上，對(duì)源程序加以補(bǔ)充即可.

參考文獻(xiàn)：

[1]尹傳存，魏春梅.試卷質(zhì)量的統(tǒng)計(jì)分析[J]. 曲阜師范大學(xué)學(xué)報(bào)(自然科學(xué)版)，2004(03).

[2]劉江燕，呂銀華，韓德艷，汪自云.試卷分析程序(SJFX2002)的程序設(shè)計(jì)[J]. 湖北師范學(xué)院學(xué)報(bào)(自然科學(xué)版)，2003(01).

[3]魏連昌.試用統(tǒng)計(jì)軟件SPSS進(jìn)行試卷分析[J].吉林師范大學(xué)學(xué)報(bào)，2005，26(2).

[4]袁正華.Vb事件編程在實(shí)驗(yàn)室管理中的應(yīng)用[J].成都師范高等專(zhuān)科學(xué)校學(xué)報(bào)，2002，21(4).

[5]王強(qiáng).在EXCEL中使用VBA編程處理數(shù)據(jù)[J]. 福建教育學(xué)院學(xué)報(bào)，2003(10).