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