用EXCEL中的VBA编写“试卷分析”程序

段显德，王艳红，杨信东

(1辽东学院 农学院，辽宁 丹东 118001；2吉林农业大学 测试中心；3吉林农业大学 农学院)

试卷分析是考试过程中的重要环节，试卷分析可以提供许多重要信息，对指导教学、评估考试质量、改进教学工作具有重要意义[1].利用计算机处理试卷数据，可以大大提高工作效率、规范处理过程，减少差错，具有很强的实用价值.尽管市场已有试卷分析专用软件供应，但因多种因素限制，都未得到普及，目前还有许多学校该项工作仍以手工方式进行[2-3].鉴于此，笔者采用一种基于Excel的VBA编程方法，编写了试卷分析计算机程序，可在所有配备Offic2000以上版本的计算机上使用，现将该程序的源代码及使用方法发表出来，供广大教师参考使用.

1 EXCEL中的VBA语言的特点

Excel是Microsoft Office家族成员，它不但提供了强大的计算功能及表格功能，还提供了宏语言Visual Basic for Application(VBA)，为广大用户提供了一个新的、更高层次的二次开发平台[4,5].

VBA用Office作为开发平台的主要优点：①Office本身功能强大，正因为VBA用Office作为开发平台，所以编写出的VBA程序的功能强大而且占用内存极小.②无需考虑运行环境，因为Office是普遍配备的应用软件.③Office界面为大家熟悉，便于软件推广应用.

2 “试卷分析”VBA程序的源代码及下载、应用方法

(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=(“每个考生的分数”)

Cells(1，2).Value=(“参考学生人数”)

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

Cells(1，4).Value=(“标准差”)

Cells(1，5).Value=(“难度系数”)

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

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

Cells(1，8).Value=(“分数全距”)

an=InputBox(“请输入参考学生人数”)

Cells(2，2).Value=an

a0=0

a1=0

x0=0

x1=100

For i=1 To an

a(i)=InputBox(“请输入每个考生的分数值”)

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= (“不同分数段”)

Cells(1，10).Value=(“各分数段的人数”)

Cells(1，11).Value= (“各分数段人数的百分比”)

For i =0 To 9

Cells(i+2，9).Value=(i*10+1&“-”&i*10+9&“的分数段”)

Cells(i+2，9).Value= (i *10+1&“-”& i*10+9 &“的分数段”)

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

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

Next i

Cells(11，9).Value= (90 &“-”&100 &“的分数段”)

Cells(12， 9).Value= (“不及格的分数段”)

Cells(12，10).Value=w1

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

End Sub

(2)“试卷分析”VBA程序的下载方法.①运行环境：Win2003，WinXP，Win2000，NT，WinME，Win9X.

②下载源程序的方法：在任意用户计算机的屏幕上，点击Excel文件，打开Excel工作簿，先在工作簿上添加一个按钮.方法如下：打开Excel工作簿，点击主菜单中的“视图(V)”选项，则出现一下拉菜单，选择并点击“工具栏”，则又出现一下拉菜单，选择并点击“控件工具箱”，则在Excel工作簿上出现一“控件工具箱”的平面图示，选择并点击此图的第4行(共9行)，第1列(共2列)，则计算机光标变成“+”形，点鼠标右键，会出现一个下拉菜单，选择并点击“粘贴”，就会在Excel工作簿上出现我们所要的按钮，可以移动按钮到适当位置.在这个按钮上点鼠标右键，在弹出的菜单中选“查看代码(V)”，Excel会自动把源代码编辑框打开，并定位光标.然后把本文所写的源代码全部粘贴入光标位置，并删去多余的首尾行.按钮上的标签文字可以随时更改.

再有，应正确设置Excel中“宏”的安全性等级：打开Excel工作簿，点击主菜单中的“工具”选项，在拉菜单中，选择并点击“宏”，出现下拉菜单，点击“安全性”，并选择点击“中”即可.

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

③“试卷分析”VBA程序文件的再拷贝：上述工作完成后，此Excel文件即成为一个工作模板，可以任意复制、粘贴或通过e-mail邮寄等方式进行传播、拷贝.

此Excel文件所占内存仅为60k，和其它任何有类似功能的软件相比，都要小得多.

(3)“试卷分析”VBA程序的应用步骤.打开Excel(“试卷分析”VBA程序)工作簿(在此过程中，若计算机屏幕显示对话框，则应选择并点击“启用宏” )，单击程序启动按钮，则程序开始运行.

计算机屏幕依次出现对话框，请输入“参考学生人数”，请输入“各考生分数值”，按照计算机的提示，输入相应数据后，计算机依次在屏幕上将各输入数据显示出来，我们可以核对输入的数据准确与否.

之后，计算机自动运算，依次输出: 平均分、标准差、难度系数、最高分、最低分、分数全距， 不同分数段 (1-9的分数段、11-19的分数段、21-29的分数段、31-39的分数段、41-49的分数段、51-59的分数段、61-69的分数段、71-79的分数段、81-89的分数段、91-100的分数段；不及格的分数段)，各分数段的人数、各分数段人数占总人数的百分比，即为我们所要求得的结果.

3 结语

用户通过该软件将学生的考试成绩录入后，马上就可以分析出试卷的考试质量.使用简单、方便，分析快速、准确，可为老师节省大量的时间.

本软件不仅可以用于高校的试卷分析，也适合于中小学的试卷分析.

如果有的学校要求提供更多信息的试卷分析计算机软件，也可以在上述软件的基础上，对源程序加以补充即可.

参考文献：

[1]尹传存，魏春梅.试卷质量的统计分析[J]. 曲阜师范大学学报(自然科学版)，2004(03).

[2]刘江燕，吕银华，韩德艳，汪自云.试卷分析程序(SJFX2002)的程序设计[J]. 湖北师范学院学报(自然科学版)，2003(01).

[3]魏连昌.试用统计软件SPSS进行试卷分析[J].吉林师范大学学报，2005，26(2).

[4]袁正华.Vb事件编程在实验室管理中的应用[J].成都师范高等专科学校学报，2002，21(4).

[5]王强.在EXCEL中使用VBA编程处理数据[J]. 福建教育学院学报，2003(10).