数理统计程序集

				Attribute VB_Name = "modCall"
				Option Explicit
				'调用计算t分布分位数的子程序
				Sub Main()
				    Dim I As Integer, TT As Double, p As Double, d As Double
				    Dim sngTT As Single
				    For I = 1 To 20
				            PT_DIST I, 0.25, TT     '调用计算t分布分位数的子程序
				            sngTT = TT
				            Debug.Print "自由度n="; I; "   上侧概率Q="; 0.25; "   分位数t="; sngTT
				    Next I
				End Sub