《利用VBA在Excel中实现教师教学质量的模糊综合评价.doc》由会员分享，可在线阅读，更多相关《利用VBA在Excel中实现教师教学质量的模糊综合评价.doc（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、利用VBA在Excel中实现教师教学质量的模糊综合评价摘要 该文以研究生教育教学质量评估为例，讨论了教师教学质量评价指标，采用层次分析法确定了各项指标的权值,给出了一个关于教师教学质量评价的模糊综合评价模型，利用VBA编程在Excel中实现模糊综合评价的计算。关键词 教师教学质量，层次分析法，模糊综合评价，VBA，Excel1 引言在教育教学管理中，对教学质量的评价是必不可少的，而传统的通过初步的定量分析确定评价指标或根据调查表的分值进行加权求带有很大的主观片面性，缺乏坚实的科学根底。因此，利用层次分析法计算各项指标的权重，用模糊综合评价法来建立评价模型，使评价结果更科
2、学有效。模糊综合评价方法是针对某些学位与研究生教育评估对象的复杂性及其评价指标模糊性，采用模糊数学的理论和技术对受多种因素影响的复杂的评估对象，进行综合评价，从而得到评估结果的方法。由于计算评价结果相对复杂和一定重复性，因此利用办公系统软件Office中Excel强大的VBA（Visual Basic Application）功能，利用编程实现计算，使计算方便快速，结果准确。2 模糊评价的原理与数学模型2.1 根本思想模糊综合评价方法的根本思想是在确定评价因素、因子的评价等级标准和权值的根底上，运用模糊集合变换原理，以隶属度描述各因素及因子的模糊界线，构造模糊评判矩阵，通过多层的复合运算，最终
3、确定评价对象所属等级。首先是对最低层的诸项指标进行模糊综合评价，再对较高层次的诸项进行模糊综合评价，直到对最顶级指标进行模糊综合评价为止。如果有多类的评价人员，那么就综合多类人员的评价结果，根据最大隶属度原那么，就可得到教师最后的定量评价结果。2.2 数学模型设指标集为U=U1，U2，Un，评语集为V=V1，V2，Vn，指标权系数子集为W=W1，W2，Wn，U的第i个指标对应的评语集V中的评价V1，V2，Vm的隶属度分别为ri1，ri2，rim，U的这一指标Ui对于V中的每一种评价的隶属度组成了V上的模糊子集，记为Ri=ri1，ri2，rim。对于每一指标Ui（i=1，2，n）都求出对应的Ri
4、，就构成了一个U×V上的模糊矩阵，即。对矩阵W与R作模糊矩阵乘法得：其中 对B进行“归一化处理，即得 ，其中 为了便于综合分析，要利用双权法把上述综合评价结果转化成相应的综合评价值。双权法即对j种评价赋以新的权系数 得到新的权重向量 ，且 ，将其乘以综合评价的向量 即可求得综合评价值为 3 实际应用教师教学质量模糊综合评价过程如下：（1） 建立教学质量的评估指标体系评价教学质量的指标体系以此为例，仅作参考一级指标教学质量F二级指标教学素质F1教学内容F2教学方法F3教学效果F4三级指标教学态度F11教学组织F12教学秩序F13教书育人F14教学大纲与目标F21思想性和前沿
5、性F22系统性和科研性F23理论联系实际F24启发性授课方式F31运用信息技术F32形象生动灵活F33指导学习方法F34考试成绩 F41课堂状况F42学习方法 F43练习作业F44（2） 确定各项评价指标的权重利用层次分析法将各项评价指标计算出来的结果填到对应的表格中。（3） 收集模糊评价信息设计一份分好等级的调查表，让评价者对各指标作出等级评定，在评定的等级栏中划“ 。教学质量调查表仅以“教学素质为例教学素质F1教学态度F11教学组织F12教学秩序F13教书育人F14好较好一般较差差好较好一般较差差好较好一般较差差好较好一般较差差 &
6、#160; （4） 模糊综合评判 将所得的调查表结果统计填到表里，建立模糊集合进行计算。按等级评价教学内容所属各指标的人数统计二级指标三级指标学生评价同行评价领导评价50名20名5名好较好一般较差差好较好一般较差差好较好一般较差差F1F11251681016310021110F1224167214582141000F131818111212440031100F14211
7、648111630 0320004 在Excel中VBA编程计算的实现 （1） 将调查结果填入表格相应的位置。（2） 用VBA编程查找输入的各项结果和指标值，将他们存入变量。 根据表格中固定的信息利用Range（）.Find（）函数在特定的区域中查找所需要的值，如查找二级指标权重系数（其中f2Name为固定信息“F1）Private Sub Find2w（f2Name As String） 此处略去变量定义 With Range（"B1:B30"）确定所查找
8、的范围 Set d =.Find（f2Name, LookIn:=xlValues） If Not d Is Nothing Then firstAddress = d.Address
9、0; Do 将查找到值赋给定义的数组变量 Set d = .FindNext（d）查找下一个满足条件的数值 Loop While Not d Is Not
10、hing And d.Address <> firstAddress End If End WithEnd Sub（3）计算某一类人群的模糊评价矩阵，以学生为例， For i = 0 To iF1Count - 1'计算学生模糊评价 Fin
11、d3w （strArrayF2w（i）调用查找三级指标权重系数 ReDim fArrayE（iF2Count, 5）重定义二维数组维数 iRow = 0 iNum = 5 + iF2Count * i
12、; '得到每一个F学生评价的范围 RangeField = "F" & iNum & ": J" & iNum + iF2Count - 1
13、 For Each c In Range（RangeField）.Cells循环建立矩阵 fArrayE（iRow, iCol） = c.Value / iStudent iCol = iCol + 1
14、 If iCol = 5 Then iRow = iRow + 1 &
15、#160; iCol = 0 End If Next（4）根据得到的数值计算指标的模糊评价矩阵，以求二级指标的模糊评价矩阵为例。根据模糊矩阵相乘运算法那么Private Sub CalMohuN（iRow As Integer, iLoopNum As Integer）
16、 此处略去变量定义 For j = 0 To 4 'fArrayF3w（i）*fArrayE（iRow, iCol）->模糊矩阵相乘 fMax = 0
17、 For i = 0 To iRow If fArrayF3w（i） < fArrayE（i, j） Then
18、 fMin = fArrayF3w（i） Else
19、60; fMin = fArrayE（i, j） End If &#
20、160; If fMax > fMin Then fMax = fMax Else &#
21、160; fMax = fMin End If
22、0; Next i fArrayR（iLoopNum, j） = fMax fSum = fSum + fMax &#
23、160; Next j For i = 0 To 4'归一化求二级指标的评价矩阵 fArrayR（iLoopNum, i） = fArrayR（iLoopNum, i） / fSum Ne
24、xt iEnd Sub（5） 结果输出将计算出的二级指标评价填入相应的表格里，再根据三类评价者所影响的程度不同，按照模糊关系合成理论再进行模糊评价，并可根据最大隶属度原那么得出该教师的评价结果。为了得到更加明确的结果可以继续进行某种处理，可规定各等级对应的代表分数，并将由他们构成等级分矩阵乘以最终的模糊评价结果矩阵，可以得到该教师教学质量的最后得分。 5 总结目前对教师课堂教学质量的评价工作已是教学质量评价中不可缺少的一局部。模糊综合评判法克服了评价中的随意性,使目标更明确,步骤更清晰,它将定量与定性较好地整合起来,显示出其他方法无法比较的优越性。其评价结果科学公正、客观
25、公平。 由于模糊综合评判法涉及到很多的矩阵运算,其运算过程又比较繁琐,大量重复的数字在抄写和运算时也容易产生过失,尤其是评价人数较多时十分费时费力。近年来,随着计算机技术的开展，Office办公系统的广泛应用，利用其强大的VBA编程计算功能解决了这一问题。使用时只需翻开已嵌入VBA的Excel,轻松地输入指标权重和评价结果,点击计算按钮,瞬间即可得到教师的综合评判的结果,为广泛应用模糊综合评判法提供了方便快捷的途径。 参考文献1 金娣,王刚.教学评价与测量M.北京:教育科学出版社。2 刘本固.教育评价的理论与实践， 浙江教育出版社。3 姜启源.数学模型（第二版）M.北京:高等教育出版社。4 贺仲雄.模糊数学及其应用，天津科学技术出版社。