avevar.txt

用VB实现的数据的统计描述 包括分布的矩---均值、平均差、标准差、方差和中位数的搜索、均值与方差的显著性检验等

Sub AVEVAR(DATA(), N, AVE, VAR)
    AVE = 0#
    VAR = 0#
    For J = 1 To N
        AVE = AVE + DATA(J)
    Next J
    AVE = AVE / N
    For J = 1 To N
        S = DATA(J) - AVE
        VAR = VAR + S * S
    Next J
    VAR = VAR / (N - 1)
End Sub