Attribute VB_Name = "modCall"
Option Explicit

'調用求分位數(shù)的過程
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, "分位數(shù)=", x
    Next dblI
End Sub