网格_极值m.bas

<VB数理统计实用算法>书中的算法源程序

Attribute VB_Name = "modGrid"
'网格录入数据
'求极大值和极小值
Option Explicit
Public intCol As Integer            '列数
Public intRow As Integer            '行数
Public dblArray() As Double         '数据
Public dblMax As Double             '极大值
Public dblMin As Double             '极小值


'求极大值和极小值子程序
Sub XYZ(intR As Integer, intC As Integer, dblABC() As Double)
    Dim intI As Integer, intJ As Integer
    dblMax = -10000000#: dblMin = 10000000#
    For intI = 1 To intR
        For intJ = 1 To intC
            If dblABC(intI, intJ) > dblMax Then dblMax = dblABC(intI, intJ)
            If dblABC(intI, intJ) < dblMin Then dblMin = dblABC(intI, intJ)
        Next intJ
    Next intI
End Sub