正态分布图m1.bas

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

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