用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个程序也可以组合成一个较大的程序，但从应用角度考虑，这样做会浪费计算机的内部资源（因为事先声明了较多在当次运算中并不使用的变量），故本文未这样处理。