【Access基础】求一维数组的最大值-缪炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


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

发表时间:2018/6/15 8:48:32 评论(0) 浏览(686)  评论 | 加入收藏 | 复制
   
摘 要:求一维数组的最大值
正 文:

      有网友问题怎么在一组数字中找到最大值,可以用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群(群号:198465573)
 
 相关文章
SQL Server 2005:数据类型最大值   【UMVsoft整理  2006/8/8】
如何取两个文本框中的最大值  【cuxun  2007/10/21】
取列字段和表中的最大值与最小值示例  【十段  2008/5/19】
[access查询]查询中显示数据行最小值最大值方法  【trynew  2008/9/6】
具有与电子表格中一样方便的求和、计数、平均值、方差、最大值、最小值...  【曹光耀  2010/11/26】
【access入门】聚合函数的示例\聚合函数应用举例,Sum合计\...  【麥田  2012/3/25】
[access查询]【access入门】求列最大值的示例\得出每个...  【麥田  2012/4/17】
【Access函数】最大值和最小值自定义函数  【Allen Browne  2012/8/23】
【Access入门】用IIF函数判断二者最大值最小值示例一则,判断...  【麥田  2012/10/4】
【Access文章】图表坐标轴格式中最大值、最小值与主要刻度单位的...  【缪炜  2014/8/22】
【Access条件格式】Access实现字段记录中的最大值显示颜色...  【麥田  2018/5/4】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

缪炜

文章分类

文章存档

友情链接