<VB数理统计实用算法>书中的算法源程序

				Attribute VB_Name = "modCall"
				Option Explicit
				'调用计算卡方分布分位数的子程序
				Sub Main()
				    Dim I As Integer, Q As Double
				    Dim X2 As Double, xx2 As Single
				    For I = 1 To 10
				        PCX2 I, 0.001, X2       '调用计算卡方分布分位数的子程序
				        xx2 = X2
				        Debug.Print "自由度 = "; I, "上侧概率 = 0.001"; _
				                "   分位数 ="; xx2
				    Next I
				    For I = 1 To 10
				        PCX2 I, 0.99, X2       '调用计算卡方分布分位数的子程序
				        xx2 = X2
				        Debug.Print "自由度 = "; I, "上侧概率 = 0.99"; _
				                "   分位数 ="; xx2
				    Next I
				End Sub