正态分布图m1.bas

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

Attribute VB_Name = "modCall"
Option Explicit
'调用计算正态分布函数的子程序

Sub Main()
    Dim I, P
    For I = 1 To 5
        Norm I, P   '调用计算正态分布函数的子程序
        Debug.Print "正态偏离点u=", I, "下侧概率p=", P
    Next I
    For I = -1 To -5 Step -1
        Norm I, P   '调用计算正态分布函数的子程序
        Debug.Print "正态偏离点u=", I, "下侧概率p=", P
    Next I
End Sub