文本框_平均值m.bas

来自「VB 数理统计实用算法」· BAS 代码 · 共 22 行

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