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