x2分布分位数m1.bas

<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