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

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

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

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

4、矩陣，即。對矩陣W與R作模糊矩陣乘法得：其中 對B進(jìn)行“歸一化”處理，即得 ，其中 為了便于綜合分析，要利用雙權(quán)法把上述綜合評價(jià)結(jié)果轉(zhuǎn)化成相應(yīng)的綜合評價(jià)值。雙權(quán)法即對j種評價(jià)賦以新的權(quán)系數(shù) 得到新的權(quán)重向量 ，且 ，將其乘以綜合評價(jià)的向量 即可求得綜合評價(jià)值為 3 實(shí)際應(yīng)用教師教學(xué)質(zhì)量模糊綜合評價(jià)過程如下：(1) 建立教學(xué)質(zhì)量的評估指標(biāo)體系評價(jià)教學(xué)質(zhì)量的指標(biāo)體系（以此為例，僅作參考）一級(jí)指標(biāo)教學(xué)質(zhì)量F二級(jí)指標(biāo)教學(xué)素質(zhì)F1教學(xué)內(nèi)容F2教學(xué)方法F3教學(xué)效果F4三級(jí)指標(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形象生動(dòng)靈活F33指導(dǎo)學(xué)習(xí)方法F34考試成績 F41課堂狀況F42學(xué)習(xí)方法 F43練習(xí)作業(yè)F44(2) 確定各項(xiàng)評價(jià)指標(biāo)的權(quán)重利用層次分析法將各項(xiàng)評價(jià)指標(biāo)計(jì)算出來的結(jié)果填到對應(yīng)的表格中。(3) 收集模糊評價(jià)信息設(shè)計(jì)一份分好等級(jí)的調(diào)查表，讓評價(jià)者對各指標(biāo)作出等級(jí)評定，在評定的等級(jí)欄中劃“” 。教學(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ì)算。按等級(jí)評價(jià)教學(xué)內(nèi)容所屬

6、各指標(biāo)的人數(shù)統(tǒng)計(jì)二級(jí)指標(biāo)三級(jí)指標(biāo)學(xué)生評價(jià)同行評價(jià)領(lǐng)導(dǎo)評價(jià)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ū)域中查找所需要的值，如查找二級(jí)指標(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)查找下一個(gè)滿足條件的數(shù)值 Loop While Not d Is Nothing And d.Address firstAddress End If End WithEnd Sub(3)計(jì)算某一類人群的模糊評價(jià)矩陣，以

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

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