Attribute VB_Name = "modCall"
Option Explicit
'調(diào)用計算正態(tài)分布函數(shù)的子程序

Sub Main()
    Dim I, P
    For I = 1 To 5
        Norm I, P   '調(diào)用計算正態(tài)分布函數(shù)的子程序
        Debug.Print "正態(tài)偏離點u=", I, "下側(cè)概率p=", P
    Next I
    For I = -1 To -5 Step -1
        Norm I, P   '調(diào)用計算正態(tài)分布函數(shù)的子程序
        Debug.Print "正態(tài)偏離點u=", I, "下側(cè)概率p=", P
    Next I
End Sub