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