求最大值！解决方法

求最大值！！
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取出你想取得那个值就可以了，是第几个就取第几个

查看更多 下一篇