f分布分位数m1.bas

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

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