怎样利用VBA自动计算S论文

如何利用VBA自动计算S
摘要：警告系数就是为了确定某个研究对象与整体倾向性之间的偏离程度而规定的一个判断指数。

s-p表是一种将测试、练习的得分数据排成一览表，并对学生和问题的特性以视觉化的图表进行结构分析的方法。

关键词：s-p表；矩阵；警告系数；vba
【中图分类号】s973.1+5
s-p表是以学生（student）数据作为纵轴，问（problem）数据作为横轴的一览表，该表取学生和问题的第一字母，故称之为s-p 表。

下面介绍s-p表的制作步骤，并且说明如何使用excel后台vba 自动计算学生的警告系数。

一、s-p表的制作和处理步骤
第一步：对布尔得分矩阵重新排列；
第二步：对得分累积分布处理，绘制s线和p线；
第三步：计算警告系数。

1.布尔得分矩阵重新排列原则
学生的顺序按得分多少，从上到下排列；
问题的顺序按被学生正答人数多少，从左到右排列；
对得分累积分布处理，绘制s线和p线。

2.数据分布处理
为了在s-p表上作进一步的分析，还需对s-p表中的数据进行得分累积分布处理。

求第i个学生所得总分，公式如下所示：
求第i个学生的得分率，公式如下所示：
求第j个问题被正答总数，公式如下所示：
求第j个问题的正答率，公式如下所示：
绘s线
s线，即学生得分分布线，是在s-p表上的阶梯状实线。

对于第i个学生，实线左边的格数等于该学生的得分总数。

绘p线
p线，即问题正答分布线，它是在s-p表上的阶梯虚线。

对于第j个问题，虚线上而后格数等于该问题的被正答总数。

3.警告系数计算公式
由于研究的事件和对象不同，根据警告系数的定义及有关运算法则，可以采用下述化直观的公式来计算学生警告系数csi。

学生警告系数的计算公式如下所示：
csi= s线左边为“0”的问题的答对人数之和—s线右边为“1”的问题的答对人数之和
________________________________________
s线左边各题正答数之和—第si学生的正答率*全体学生得分总和
二、程序编写
程序代码如下：
sub stundent（）
dim creatsheet as worksheet
dim cnst_left， cnst_left_count as long
dim cnst_top， cnst_top_count as long
cnst_left =（excel中布尔排列后学生表列数据起始位置）
cnst_left_count =（参与答题学生数）
cnst_top =（excel中布尔排列后学生表列数据起始位置）
cnst_top_count =（题目个数）
set creatsheet = activeworkbook.activesheet
creatsheet.activate
for rowcount = cnst_top to （cnst_top + cnst_top_count - 1）
dim sleft0 as long
dim sleft1 as long
dim sright1 as long
dim sall as long
dim scount as long
sleft0 = 0
sleft1 = 0
sright1 = 0
sall = 0
scount=clng（creatsheet.cells（rowcount，
cnst_left+cnst_left_count）.value）
for columncount = cnst_left to （cnst_left + scount - 1）if clng（creatsheet.cells（rowcount， columncount）.value）0 then
sright1 = sright1 + clng（creatsheet.cells（cnst_top + cnst_top_count， columncount）.value）
end if
next columncount
for columncount = cnst_left to （cnst_left +
cnst_left_count - 1）
sall = sall + clng（creatsheet.cells（cnst_top +
cnst_top_count， columncount）.value）
next columncount
dim dblsjinggao as double
dim dblsritu as double
dblsritu = cdbl（creatsheet.cells（rowcount， cnst_left + cnst_left_count + 3）.value）
if cdbl（sleft1 - dblsritu * sall） = 0 then
dblsjinggao = 0
else
dblsjinggao = cdbl（sleft0 - sright1） / cdbl（sleft1 - dblsritu * sall）
end if
creatsheet.cells（rowcount，cnst_left+cnst_left_count+5）=cstr（dblsjinggao）
nexttime：
next rowcount
end sub
三、结论
根据具体数据可以得出学生警告系数，由答题的正确率和警告系数的共同作用，可根据实际情况将学生学习状况可分为若干种情况进行分析。

所以根据警告系数我们很容易能判断出学生的学习状况。

在所掌握的这些情况下，根据学生的学习状况可以有针对性的提高学生成绩。