精品資料（2021-2022年收藏）利用VBA在Excel中實現(xiàn)教師教學質(zhì)量的模糊綜合評價

1、利用VBA在Excel中實現(xiàn)教師教學質(zhì)量的模糊綜合評價摘要 該文以研究生教育教學質(zhì)量評估為例，討論了教師教學質(zhì)量評價指標，采用層次分析法確定了各項指標的權(quán)值,給出了一個關(guān)于教師教學質(zhì)量評價的模糊綜合評價模型，利用VBA編程在Excel中實現(xiàn)模糊綜合評價的計算。關(guān)鍵詞 教師教學質(zhì)量，層次分析法，模糊綜合評價，VBA，Excel1 引言在教育教學管理中，對教學質(zhì)量的評價是必不可少的，而傳統(tǒng)的通過初步的定量分析確定評價指標或根據(jù)調(diào)查表的分值進行加權(quán)求帶有很大的主觀片面性，缺乏堅實的科學基礎(chǔ)。因此，利用層次分析法計算各項指標的權(quán)重，用模糊綜合評價法來建立評價模型，使評價結(jié)果更科學有效。模糊綜合評價方法

2、是針對某些學位與研究生教育評估對象的復雜性及其評價指標模糊性，采用模糊數(shù)學的理論和技術(shù)對受多種因素影響的復雜的評估對象，進行綜合評價，從而得到評估結(jié)果的方法。由于計算評價結(jié)果相對復雜和一定重復性，因此利用辦公系統(tǒng)軟件Office中Excel強大的VBA(Visual Basic Application)功能，利用編程實現(xiàn)計算，使計算方便快速，結(jié)果準確。2 模糊評價的原理與數(shù)學模型2.1 基本思想模糊綜合評價方法的基本思想是在確定評價因素、因子的評價等級標準和權(quán)值的基礎(chǔ)上，運用模糊集合變換原理，以隸屬度描述各因素及因子的模糊界線，構(gòu)造模糊評判矩陣，通過多層的復合運算，最終確定評價對象所屬等級。首

3、先是對最低層的諸項指標進行模糊綜合評價，再對較高層次的諸項進行模糊綜合評價，直到對最頂級指標進行模糊綜合評價為止。如果有多類的評價人員，那么就綜合多類人員的評價結(jié)果，根據(jù)最大隸屬度原則，就可得到教師最后的定量評價結(jié)果。2.2 數(shù)學模型設(shè)指標集為U=U1，U2，Un，評語集為V=V1，V2，Vn，指標權(quán)系數(shù)子集為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，就構(gòu)成了一個UV上的模糊

4、矩陣，即。對矩陣W與R作模糊矩陣乘法得：其中 對B進行“歸一化”處理，即得 ，其中 為了便于綜合分析，要利用雙權(quán)法把上述綜合評價結(jié)果轉(zhuǎn)化成相應的綜合評價值。雙權(quán)法即對j種評價賦以新的權(quán)系數(shù) 得到新的權(quán)重向量 ，且 ，將其乘以綜合評價的向量 即可求得綜合評價值為 3 實際應用教師教學質(zhì)量模糊綜合評價過程如下：(1) 建立教學質(zhì)量的評估指標體系評價教學質(zhì)量的指標體系（以此為例，僅作參考）一級指標教學質(zhì)量F二級指標教學素質(zhì)F1教學內(nèi)容F2教學方法F3教學效果F4三級指標教學態(tài)度F11教學組織F12教學秩序F13教書育人F14教學大綱與目標F21思想性和前沿性F22系統(tǒng)性和科研性F23理論聯(lián)系實際F2

5、4啟發(fā)性授課方式F31運用信息技術(shù)F32形象生動靈活F33指導學習方法F34考試成績 F41課堂狀況F42學習方法 F43練習作業(yè)F44(2) 確定各項評價指標的權(quán)重利用層次分析法將各項評價指標計算出來的結(jié)果填到對應的表格中。(3) 收集模糊評價信息設(shè)計一份分好等級的調(diào)查表，讓評價者對各指標作出等級評定，在評定的等級欄中劃“” 。教學質(zhì)量調(diào)查表（僅以“教學素質(zhì)”為例）教學素質(zhì)F1教學態(tài)度F11教學組織F12教學秩序F13教書育人F14好較好一般較差差好較好一般較差差好較好一般較差差好較好一般較差差(4) 模糊綜合評判 將所得的調(diào)查表結(jié)果統(tǒng)計填到表里，建立模糊集合進行計算。按等級評價教學內(nèi)容所屬

6、各指標的人數(shù)統(tǒng)計二級指標三級指標學生評價同行評價領(lǐng)導評價50名20名5名好較好一般較差差好較好一般較差差好較好一般較差差F1F11251681016310021110F1224167214582141000F131818111212440031100F142116481116300320004 在Excel中VBA編程計算的實現(xiàn) (1) 將調(diào)查結(jié)果填入表格相應的位置。(2) 用VBA編程查找輸入的各項結(jié)果和指標值，將他們存入變量。 根據(jù)表格中固定的信息利用Range().Find()函數(shù)在特定的區(qū)域中查找所需要的值，如查找二級指標權(quán)重系數(shù)(其中f2Name為固定信息“F1”)Private S

7、ub Find2w(f2Name As String) 此處略去變量定義 With Range(B1:B30)確定所查找的范圍 Set d =.Find(f2Name, LookIn:=xlValues) If Not d Is Nothing Then firstAddress = d.Address Do 將查找到值賦給定義的數(shù)組變量 Set d = .FindNext(d)查找下一個滿足條件的數(shù)值 Loop While Not d Is Nothing And d.Address firstAddress End If End WithEnd Sub(3)計算某一類人群的模糊評價矩陣，以

8、學生為例， For i = 0 To iF1Count - 1計算學生模糊評價 Find3w (strArrayF2w(i)調(diào)用查找三級指標權(quán)重系數(shù) ReDim fArrayE(iF2Count, 5)重定義二維數(shù)組維數(shù) iRow = 0 iNum = 5 + iF2Count * i 得到每一個F學生評價的范圍 RangeField = F & iNum & : J & iNum + iF2Count - 1 For Each c In Range(RangeField).Cells循環(huán)建立矩陣 fArrayE(iRow, iCol) = c.Value / iStudent iCol =

9、iCol + 1 If iCol = 5 Then iRow = iRow + 1 iCol = 0 End If Next(4)根據(jù)得到的數(shù)值計算指標的模糊評價矩陣，以求二級指標的模糊評價矩陣為例。根據(jù)模糊矩陣相乘運算法則Private Sub CalMohuN(iRow As Integer, iLoopNum As Integer) 此處略去變量定義 For j = 0 To 4 fArrayF3w(i)*fArrayE(iRow, iCol)-模糊矩陣相乘 fMax = 0 For i = 0 To iRow If fArrayF3w(i) fMin Then fMax = fMax

10、Else fMax = fMin End If Next i fArrayR(iLoopNum, j) = fMax fSum = fSum + fMax Next j For i = 0 To 4歸一化求二級指標的評價矩陣 fArrayR(iLoopNum, i) = fArrayR(iLoopNum, i) / fSum Next iEnd Sub(5) 結(jié)果輸出將計算出的二級指標評價填入相應的表格里，再根據(jù)三類評價者所影響的程度不同，按照模糊關(guān)系合成理論再進行模糊評價，并可根據(jù)最大隸屬度原則得出該教師的評價結(jié)果。為了得到更加明確的結(jié)果可以繼續(xù)進行某種處理，可規(guī)定各等級對應的代表分數(shù)，并將

11、由他們構(gòu)成等級分矩陣乘以最終的模糊評價結(jié)果矩陣，可以得到該教師教學質(zhì)量的最后得分。5 總結(jié)目前對教師課堂教學質(zhì)量的評價工作已是教學質(zhì)量評價中不可缺少的一部分。模糊綜合評判法克服了評價中的隨意性,使目標更明確,步驟更清晰,它將定量與定性較好地整合起來,顯示出其他方法無法比擬的優(yōu)越性。其評價結(jié)果科學公正、客觀公平。 由于模糊綜合評判法涉及到很多的矩陣運算,其運算過程又比較繁瑣,大量重復的數(shù)字在抄寫和運算時也容易產(chǎn)生差錯,尤其是評價人數(shù)較多時十分費時費力。近年來,隨著計算機技術(shù)的發(fā)展，Office辦公系統(tǒng)的廣泛應用，利用其強大的VBA編程計算功能解決了這一問題。使用時只需打開已嵌入VBA的Excel,