以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获得一个数值集合中的最大值?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74020)

--  作者:wyz20130512
--  发布时间:2015/8/31 17:17:00
--  [求助]如何获得一个数值集合中的最大值?

Dim value_L As List (Of Integer)

假定这个数值集合中有1000个元素,且是无序的,如何获得其最大值呢?

请老师指点?


--  作者:有点蓝
--  发布时间:2015/8/31 17:20:00
--  
Dim max As Integer=0
For Each i As Integer In value_L
   If i > max Then
     max = i
   End If
Next
msgbox(max)

--  作者:wyz20130512
--  发布时间:2015/8/31 17:21:00
--  回复:(有点蓝)Dim max As Integer=0For Each i As ...
谢谢!明白了!