用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.eepw.com.cn/article/192949.htm
评论