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

《利用VBA在Excel中实现教师教学质量的模糊综合评价.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用VBA在Excel中实现教师教学质量的模糊综合评价摘要该文以研究生教育教学质量评估为例，讨论了教师教学质量评价指标，采用层次分析法确定了各项指标的权值,给出了一个关于教师教学质量评价的模糊综合评价模型，利用VBA编程在Excel中实现模糊综合评价的计算。关键词教师教学质量，层次分析法，模糊综合评价，VBA，Excel1引言　　在教育教学管理中，对教学质量的评价是必不可少的，而传统的通过初步的定量分析确定评价指标或根据调查表的分值进行加权求带有很大的主观片面性，缺乏坚实的科学基础。因此，利用层次分析法计算各项指标的权重，用模糊综合

2、评价法来建立评价模型，使评价结果更科学有效。模糊综合评价方法是针对某些学位与研究生教育评估对象的复杂性及其评价指标模糊性，采用模糊数学的理论和技术对受多种因素影响的复杂的评估对象，进行综合评价，从而得到评估结果的方法。由于计算评价结果相对复杂和一定重复性，因此利用办公系统软件Office中Excel强大的VBA(VisualBasicApplication)功能，利用编程实现计算，使计算方便快速，结果准确。2模糊评价的原理与数学模型2.1基本思想　　模糊综合评价方法的基本思想是在确定评价因素、因子的评价等级标准和权值的基础上，运用模

3、糊集合变换原理，以隶属度描述各因素及因子的模糊界线，构造模糊评判矩阵，通过多层的复合运算，最终确定评价对象所属等级。　　首先是对最低层的诸项指标进行模糊综合评价，再对较高层次的诸项进行模糊综合评价，直到对最顶级指标进行模糊综合评价为止。如果有多类的评价人员，那么就综合多类人员的评价结果，根据最大隶属度原则，就可得到教师最后的定量评价结果。2.2数学模型　　设指标集为U={U1，U2，…，Un}，评语集为V={V1，V2，…，Vn}，指标权系数子集为W={W1，W2，…，Wn}，U的第i个指标对应的评语集V中的评价V1，V2，…，Vm

4、的隶属度分别为ri1，ri2，…，rim，U的这一指标Ui对于V中的每一种评价的隶属度组成了V上的模糊子集，记为Ri={ri1，ri2，…，rim}。对于每一指标Ui(i=1，2，…，n)都求出对应的Ri，就构成了一个U×V上的模糊矩阵，即　　　　。对矩阵W与R作模糊矩阵乘法得：其中对B进行“归一化”处理，即得，其中为了便于综合分析，要利用双权法把上述综合评价结果转化成相应的综合评价值。双权法即对j种评价赋以新的权系数得到新的权重向量，且，将其乘以综合评价的向量即可求得综合评价值为3实际应用12　　教师教学质量模糊综合评价过程如下：

5、　　(1)建立教学质量的评估指标体系　　评价教学质量的指标体系（以此为例，仅作参考）一级指标教学质量F二级指标教学素质F1教学内容F2教学方法F3教学效果F4三级指标教学态度F11教学组织F12教学秩序F13教书育人F14教学大纲与目标F21思想性和前沿性F22系统性和科研性F23理论联系实际F24启发性授课方式F31运用信息技术F3212形象生动灵活F33指导学习方法F34考试成绩F41课堂状况F42学习方法F43练习作业F44　　(2)确定各项评价指标的权重利用层次分析法将各项评价指标计算出来的结果填到对应的表格中。　　(3)收

6、集模糊评价信息　　设计一份分好等级的调查表，让评价者对各指标作出等级评定，在评定的等级栏中划“√”。　　教学质量调查表（仅以“教学素质”为例）教学素质F1教学态度F1112教学组织F12教学秩序F13教书育人F14好较好一般较差差好较好一般较差差好较好一般较差差好较好一般12较差差√√√√12　　(4)模糊综合评判将所得的调查表结果统计填到表里，建立模糊集合进行计算。　　按等级评价教学内容所属各指标的人数统计二级指标三级指标学生评价同行评价领导评价50名20名5名好较好一般较差差好较好一般较差差12好较好一般较差差F1F112516

7、8101631002111120F1224167214582141000F13181811121212440031100F14211648111630120320004在Excel中VBA编程计算的实现　　(1)将调查结果填入表格相应的位置。　　(2)用VBA编程查找输入的各项结果和指标值，将他们存入变量。　　根据表格中固定的信息利用Range().Find()函数在特定的区域中查找所需要的值，如查找二级指标权重系数(其中f2Name为固定信息“F1”)PrivateSubFind2w(f2NameAsString)……’此处略去变

8、量定义WithRange("B1:B30")’确定所查找的范围Setd=.Find(f2Name,LookIn:=xlValues)IfNotdIsNothingThenfirstAddress=d.AddressDo……’将查找到值