正态分布分位数m1.bas

来自「数理统计程序集」· BAS 代码 · 共 13 行

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