以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何提取字典数据最大值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188835) |
-- 作者:ZJZK2018 -- 发布时间:2023/10/23 10:59:00 -- 如何提取字典数据最大值 Dim zd As New Dictionary(Of Integer, String) 如何提取字典Key的最大值,Key中有:5,2,8,1,15,4有N个数 |
-- 作者:有点蓝 -- 发布时间:2023/10/23 11:20:00 -- Dim max As Integer = 0 For Each i As Integer In zd.Keys If i > max Then max = i End If Next MsgBox(max)
|
-- 作者:y2287958 -- 发布时间:2023/10/23 11:38:00 -- Output .Show (zd.Keys .max) |
-- 作者:ZJZK2018 -- 发布时间:2023/10/23 13:10:00 -- 不好意思,最小值如何求?? |
-- 作者:有点蓝 -- 发布时间:2023/10/23 14:11:00 -- min |