数理统计程序集

				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