【Access基础】求一维数组的最大值

时　间:2018-06-15 08:48:32
作　者:缪炜   ID：24010  城市：江阴
摘　要:求一维数组的最大值
正　文:

      有网友问题怎么在一组数字中找到最大值，可以用DMax函数吗？回答是，如果数据是保存在表中的，那当然可以了。但他又问，说这组数据不是存在表里的该怎么做？如果这样就自己写个函数玩玩吧。

原理很简单，先把第一个值赋给一个变量假设他为最大值，然后与其他数字比较，遇到比他大的就再将值赋给这个变量，直到比较完成，最后的就是最大值了。

Private Function MyMax(strMax As String) As Single
    Dim varA As Variant
    Dim i As Long
    Dim sngA As Single
    varA = Split(strMax, ";")
    sngA = 0
   
    For i = 0 To UBound(varA) - 1
        If CSng(varA(i)) > sngA Then
            sngA = CSng(varA(i))
        End If
    Next i
    MyMax = sngA
End Function

附   件:

点击下载此附件

演   示: