+-

所有数理统计知识的源代码都在此,是一本数理统计数的配套光盘.里面有各种分布类型及参数估计插值

Attribute VB_Name = "modCalculate"
'文本框数组录入数据
'计算平均值
Option Explicit
Public intRow As Integer            '行数
Public intCol As Integer            '列数
Public dblArray() As Double         '录入数据

'计算平均值函数
Function XYZ(intR As Integer, intC As Integer, ABC() As Double) As Double
    Dim dblSum As Double
    Dim intI As Integer, intJ As Integer
    dblSum = 0#
    For intI = 1 To intR
        For intJ = 1 To intC
            dblSum = dblSum + ABC(intI, intJ)                   '求和
        Next intJ
    Next intI
    XYZ = dblSum / (intR * intC)                                '求平均值
End Function