t分布m1.bas

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

Attribute VB_Name = "modCall"
Option Explicit
'计算t分布函数的下侧概率和密度函数
Sub Main()
    Dim I As Integer, TT As Double, p As Double, d As Double
    Dim sngP As Single, sngD As Single
    For I = 10 To 20 Step 5
        For TT = 1 To 6
            T_Dist I, TT, p, d
            sngP = p: sngD = d
            Debug.Print "n="; I; "   t="; TT; _
                "   下侧概率="; sngP; "   密度函数="; sngD
        Next TT
    Next I
End Sub