数理统计程序集

				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