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

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

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

3、先是對最低層的諸項(xiàng)指標(biāo)進(jìn)行模糊綜合評價，再對較高層次的諸項(xiàng)進(jìn)行模糊綜合評價，直到對最頂級指標(biāo)進(jìn)行模糊綜合評價為止。如果有多類的評價人員，那么就綜合多類人員的評價結(jié)果，根據(jù)最大隸屬度原則，就可得到教師最后的定量評價結(jié)果。2.2 數(shù)學(xué)模型設(shè)指標(biāo)集為U=U1，U2，Un，評語集為V=V1，V2，Vn，指標(biāo)權(quán)系數(shù)子集為W=W1，W2，Wn，U的第i個指標(biāo)對應(yīng)的評語集V中的評價V1，V2，Vm的隸屬度分別為ri1，ri2，rim，U的這一指標(biāo)Ui對于V中的每一種評價的隸屬度組成了V上的模糊子集，記為Ri=ri1，ri2，rim。對于每一指標(biāo)Ui(i=1，2，n)都求出對應(yīng)的Ri，就構(gòu)成了一個UV上的模糊

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

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

6、各指標(biāo)的人數(shù)統(tǒng)計(jì)二級指標(biāo)三級指標(biāo)學(xué)生評價同行評價領(lǐng)導(dǎo)評價50名20名5名好較好一般較差差好較好一般較差差好較好一般較差差F1F11251681016310021110F1224167214582141000F131818111212440031100F142116481116300320004 在Excel中VBA編程計(jì)算的實(shí)現(xiàn) (1) 將調(diào)查結(jié)果填入表格相應(yīng)的位置。(2) 用VBA編程查找輸入的各項(xiàng)結(jié)果和指標(biāo)值，將他們存入變量。 根據(jù)表格中固定的信息利用Range().Find()函數(shù)在特定的區(qū)域中查找所需要的值，如查找二級指標(biāo)權(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)計(jì)算某一類人群的模糊評價矩陣，以

8、學(xué)生為例， For i = 0 To iF1Count - 1計(jì)算學(xué)生模糊評價 Find3w (strArrayF2w(i)調(diào)用查找三級指標(biāo)權(quán)重系數(shù) ReDim fArrayE(iF2Count, 5)重定義二維數(shù)組維數(shù) iRow = 0 iNum = 5 + iF2Count * i 得到每一個F學(xué)生評價的范圍 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ì)算指標(biāo)的模糊評價矩陣，以求二級指標(biāo)的模糊評價矩陣為例。根據(jù)模糊矩陣相乘運(yùn)算法則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歸一化求二級指標(biāo)的評價矩陣 fArrayR(iLoopNum, i) = fArrayR(iLoopNum, i) / fSum Next iEnd Sub(5) 結(jié)果輸出將計(jì)算出的二級指標(biāo)評價填入相應(yīng)的表格里，再根據(jù)三類評價者所影響的程度不同，按照模糊關(guān)系合成理論再進(jìn)行模糊評價，并可根據(jù)最大隸屬度原則得出該教師的評價結(jié)果。為了得到更加明確的結(jié)果可以繼續(xù)進(jìn)行某種處理，可規(guī)定各等級對應(yīng)的代表分?jǐn)?shù)，并將

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