Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

【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

附   件:

点击下载此附件


演   示:

点击图片查看大图



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助