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