正态分布m1.bas

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

Attribute VB_Name = "modCall"
Option Explicit
'调用计算正态分布函数的子程序
Sub Main()
    Dim x, F
    For x = 1 To 5
        Norm x, F   '调用计算正态分布函数的子程序
        Debug.Print "正态偏离点 x =", x, "下侧概率 F =", F
    Next x
    For x = -1 To -5 Step -1
        Norm x, F   '调用计算正态分布函数的子程序
        Debug.Print "正态偏离点 x =", x, "下侧概率 F =", F
    Next x
End Sub