之前发布过使用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

示   例:

点击下载此附件

图   示: