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