读书人

求最大值!解决方法

发布时间: 2013-12-28 22:19:34 作者: rapoo

求最大值!!
For ii As Integer = 0 To 4
ts = mstring.mtrim(mdt.Rows(ii)("dadif"))
Next
x = max ts 'for 循环里ts 有5个值,如何将这里的最大值附到x中?
求详解!
[解决办法]

引用:
Quote: 引用:

  先排序,再从中取出最小的几个数,放一个新数组中,再取最大值 
Dim arr() As Integer = New Integer() {1, 2, 4, 5, 3, 6, 9, 7, 8, 10}
Dim brr(5) As Integer
Array.Sort(arr)
For ii As Integer = 0 To 4
brr(5) = arr(ii)
Next
MessageBox.Show(brr.Max())

可以写成这样吗?
Dim arr() As Integer = New Integer() {1 to x}、、从x个之中取出最小的n个值中最大的值。。。这是最全的问题了、、、

我这个代码就是你说的这个:
Dim arr() As Integer = New Integer() {1, 2, 4, 5, 3, 6, 9, 7, 8, 10} ‘定义10个元素
Dim brr(5) As Integer ‘定义5个
Array.Sort(arr) ’对10个元素进行从小到大的排序
For ii As Integer = 0 To 4 ‘
brr(5) = arr(ii) ’从排序后的数据中取出最小的5个数,放到新数组中
Next
MessageBox.Show(brr.Max()) ’取出新数组中最大的一个值
[解决办法]
1放在一个数组里,2把这个数组排序Array.Sort,3取出你想取得那个值就可以了,是第几个就取第几个

读书人网 >VB Dotnet

热点推荐