Attribute VB_Name = "modCall"
Option Explicit
'調(diào)用計(jì)算F分布分位數(shù)的子程序
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      '調(diào)用計(jì)算F分布分位數(shù)的子程序
        sngF = FF
        Debug.Print "n1="; 1; "  n2="; I; "   上側(cè)概率="; 0.05; "   分位數(shù)="; sngF
    Next I
End Sub