Access使用数组求最大值函数；求一组数据最大值示例；分享一个得出最大数示例

时　间:2022-10-21 08:07:51
作　者:欧志华   ID：51519  城市：广州
摘　要:使用数组求最大值函数源码。
正　文:

      之前发布过使用if 判断四个数值的最大值示例，今天分享一个使用数组和for..next循环判断数值，得出最大值的示例。

代   码:

Function MaxValue(value1 As Double, value2 As Double, value3 As Double, value4 As Double) As Double
    Dim arr(4) As Variant
    arr(0) = value1
    arr(1) = value2
    arr(2) = value3
    arr(3) = value4
    Dim i As Long
    MaxValue = arr(0)    
    For i = 0 To UBound(arr)
        If MaxValue < arr(i) Then
            MaxValue = arr(i)
        End If
    Next
    MaxValue = MaxValue
End Function

示   例:

点击下载此附件

图   示: