正态分布分位数m1.bas

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

Attribute VB_Name = "modCall"
Option Explicit

'调用求分位数的过程
Sub main()
    Dim x As Double, dblI As Double
    For dblI = 0.05 To 0.45 Step 0.05
        PNorm dblI, x
        Debug.Print "上侧概率=", dblI, "分位数=", x
    Next dblI
End Sub