x2分布m1.bas

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

Attribute VB_Name = "modCall"
Option Explicit
'调用计算卡方分布函数的子程序
Sub Main()
    Dim I As Integer, F As Double, d As Double
    Dim F1 As Single, d1 As Single
    For I = 1 To 9
        CX2 I, 5, F, d      '调用计算卡方分布函数的子程序
        F1 = F: d1 = d
        Debug.Print "自由度 = "; I, "卡方值 = 5"; _
                "   下侧概率 ="; F1, "概率密度 ="; d1
    Next I
End Sub