用Excel中的VBA編寫卡方測算相關(guān)程序
1.2.3 r×c表的獨立性測驗
Private Sub CommandButton1_Click()
Dim C As Integer:Dim R As Integer :Dim n As Single:Dim h As Single
Dim x As Single
Dim a(0 To 99,0 To 99) As Single
Dim g(0 To 99) As Single
Dim k(0 To 99) As Single
C=InputBox(請輸入數(shù)據(jù)組數(shù)C=?)
Cells(1,2).Value=(數(shù)據(jù)組數(shù)C)
Cells(2,2).Value=C
R=InputBox(請輸入數(shù)據(jù)組數(shù)R=?)
Cells(1,3).Value=(數(shù)據(jù)組數(shù)R)
Cells(2,3).Value=R
Cells(1,4).Value= Gi數(shù)值
Cells(1,5).Value= Kj數(shù)值
Cells(1,6).Value= 所有數(shù)字之和,n
For i=1 To C
For j=1 To R
a(i,j)=InputBox(請輸入第( i )行,第( j )列的樣本數(shù)值a(i,j)=?)
Next j
Next i
For i=1 To C
For j=1 To R
g(i)=g(i)+a(i,j)
Cells(1+i,4).Value=g(i)
Next j
Next i
For j=1 To R
For i=1 To C
k(j)=k(j)+a(i,j)
Cells(1+j,5).Value=k(j)
Next i
Next j
For i=1 To C
n=n+g(i)
Next i
Cells(2,6).Value=n
h=0
For i=1 To C
For j=1 To R
h=h+a(i,j)^2/g(i)/k(j)
Next j
Next i
x=n * (h-1)
Cells(1,9).Value= 卡平方值x2
Cells(2,9).Value=x
End Sub
2 “卡平方測算”VBA程序的應(yīng)用步驟:
?。?)運行環(huán)境:Win2003、WinXP、Win2000等。
(2)VBA程序的應(yīng)用步驟:打開Excel“EC50、EC90測算”程序工作簿(在此過程中,若計算機屏幕顯示對話框,則應(yīng)選擇并點擊“啟用宏”),單擊(程序運行命令)按鈕(本程序中該按鈕上面寫著“計算”),則程序開始運行計算機,屏幕依次出現(xiàn)對話框,按對話框所提問題逐個輸入數(shù)據(jù),輸完后瞬間即在程序工作簿頁面上顯示輸出結(jié)果(包括卡平方值)。
?。?)“卡平方測算”VBA程序的下載及拷貝方法:①下載源程序的方法參見文獻[6-7];②“卡平方測算” 文件的再拷貝:上述工作完成后,此Excel文件即成為一個工作模板,可以任意復(fù)制、粘貼或通過e-mail郵寄等方式進行傳播和拷貝。
本Excel文件所占內(nèi)存約為60 KB,與其他有類似功能的程序相比要小得多。上述4個程序也可以組合成一個較大的程序,但從應(yīng)用角度考慮,這樣做會浪費計算機的內(nèi)部資源(因為事先聲明了較多在當(dāng)次運算中并不使用的變量),故本文未這樣處理。
參考文獻
[1] 武曉玲,周斌,孫石,等.大豆對大豆疫霉菌株P(guān)m14抗性的遺傳分析及基因定位[J].中國農(nóng)業(yè)科學(xué),2011,44(3):456-460.
[2] 王保通,李強,胡茂林,等.小麥品種Libellula和N. strampelli抗條銹病主效、微效基因遺傳分析[J].植物病理學(xué)報,2010,40(3):300-306.
[3] 張宏,任志龍,胡銀崗,等.陜麥139抗條銹病基因遺傳分析[J].作物學(xué)報,2010,36(1):109-114.
[4] 何麗華,牛寶龍,齊曉朋,等.棉鈴蟲成蟲體色突變體的發(fā)現(xiàn)及其遺傳分析[J].核農(nóng)學(xué)報,2007(4):397-400.
[5] 楊振宇,王曉麗,張曉波,等.部分抗SMV大豆品種成株抗性基因?qū)?shù)分析[J].吉林農(nóng)業(yè)大學(xué)學(xué)報,2011,33(6):591-594.
[6] 龔瑞,楊炬,黎唏,等.2007-2010年度寧夏流感監(jiān)測結(jié)果分析[J].寧夏醫(yī)學(xué)雜志,2011,33(3):222-224.
[7] 錢峰.基于卡方檢驗的國內(nèi)外知識管理研究熱點比較[J].情報雜志,2008(9):56-58.
[8] 徐向陽.卡方檢驗在學(xué)生成績差異性分析中的應(yīng)用[J].常州技術(shù)師范學(xué)院學(xué)報,2001,7(4):13-16.
[9] 蓋鈞鎰.試驗統(tǒng)計方法[M].北京,中國農(nóng)業(yè)出版社,2000.
[10] 詹秋文.Excel和SAS在生物統(tǒng)計學(xué)的應(yīng)用比較[J].生物學(xué)雜志,2009,26(1):74-75,83.
[11] 向窮,施樹良,李鈺.常用統(tǒng)計軟件在生物統(tǒng)計中的應(yīng)用比較[J].現(xiàn)代生物醫(yī)學(xué)進展,2009,9(9):1775-1777,1789.
[12] 唐啟義,馮明光.實用統(tǒng)計分析及其DPS數(shù)據(jù)處理系統(tǒng)[M].北京:科學(xué)出版社,2002:188-95.
[13] 譚永強,余華強,陳橋生,等.利用Excel軟件建立卡方檢驗分析模板在農(nóng)業(yè)統(tǒng)計中的應(yīng)用[J].湖北農(nóng)業(yè)科學(xué),2010,49(12):3192-3195.
[14] 龔沛曾,陸慰民.Visual Basic程序設(shè)計教程(6.0版)[M].北京:高等教育出版社,2001.
[15] 李曉玫,楊小平.Excel中的VBA程序設(shè)計[J].四川師范大學(xué)學(xué)報(自然科學(xué)版),2004(4):423-426.
[16] 馬海霞,劉 影,王艷紅,等.用EXCEL中的VBA編寫“多項式的三角函數(shù)擬合單峰曲線”程序[J].菌物研究,2009,7(3-4):195-200.
[17] 段顯德,王艷紅,楊信東.用EXCEL中的VBA編寫“試卷分析”程序[J].通化師范學(xué)院學(xué)報,2010,31(8):52-53.本文引用地址:http://m.butianyuan.cn/article/192949.htm
評論