Attribute VB_Name = "modCall"
Option Explicit
'調用計算F分布分位數的子程序
Sub Main()
    Dim I As Integer, FF As Double
    Dim sngF As Single
    For I = 1 To 5
        PF_DIST 1, I, 0.05, FF      '調用計算F分布分位數的子程序
        sngF = FF
        Debug.Print "n1="; 1; "  n2="; I; "   上側概率="; 0.05; "   分位數="; sngF
    Next I
End Sub