【文章內容簡介】
。 Do …… ’將查找到值賦給定義的數(shù)組變量 Set d = .FindNext(d)’查找下一個滿足條件的數(shù)值 Loop While Not d Is Nothing And firstAddress End If End WithEnd Sub (3)計算某一類人群的模糊評價矩陣,以學生為例,…… For i = 0 To iF1Count 139。計算學生模糊評價 Find3w (strArrayF2w(i))’調用查找三級指標權重系數(shù) ReDim fArrayE(iF2Count, 5)’重定義二維數(shù)組維數(shù) iRow = 0 iNum = 5 + iF2Count * i 39。得到每一個F學生評價的范圍 RangeField = F amp。 iNum amp。 : J amp。 iNum + iF2Count 1 For Each c In Range(RangeField).Cells’循環(huán)建立矩陣 fArrayE(iRow, iCol) = / iStudent iCol = iCol + 1 If iCol = 5 Then iRow = iRow + 11