利用VBA在Excel中实现教师教学质量的模糊综合评价

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名好较好一般较差差好较好一般较差差好较好一般较差差F1F11251681016310021110F1224167214582141000F131818111212440031100

7、F14211648111630 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、60;   Do              将查找到值赋给定义的数组变量              Set d = .FindNext(d)查找下一个满足条件的数值            Loop While Not d

10、 Is Nothing And d.Address <> firstAddress          End If    End WithEnd Sub(3)计算某一类人群的模糊评价矩阵，以学生为例，        For i = 0 To iF1Count - 1'计算学生模糊评价          

11、60; Find3w (strArrayF2w(i)调用查找三级指标权重系数            ReDim fArrayE(iF2Count, 5)重定义二维数组维数            iRow = 0            iNum = 5 + iF2Count * i 

12、0;                '得到每一个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、       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            Next j            For i = 0 To 4'归一化求二级指标的评价矩阵            fArrayR(iLoopNum, i) = fArrayR(iLoopNum,