求最大值！！

u013034598 2013-12-26 11:45:19

For ii As Integer = 0 To 4
ts = mstring.mtrim(mdt.Rows(ii)("dadif"))
Next
x = max ts 'for 循环里ts 有5个值，如何将这里的最大值附到x中？
求详解！

...全文

155 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

夜轻风 2013-12-27

打赏
举报

比如你想取第五个就是排序好的数组的a(5-1)

夜轻风 2013-12-27

打赏
举报

1放在一个数组里，2把这个数组排序Array.Sort，3取出你想取得那个值就可以了，是第几个就取第几个

wind_cloud2011 2013-12-27

打赏
举报

引用 7 楼 u013034598 的回复:

[quote=引用 6 楼 wind_cloud2011 的回复:]

  先排序，再从中取出最小的几个数，放一个新数组中，再取最大值　
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个值中最大的值。。。这是最全的问题了、、、[/quote] 我这个代码就是你说的这个： 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()) ’取出新数组中最大的一个值

u013034598 2013-12-27

打赏
举报

引用 6 楼 wind_cloud2011 的回复:

  先排序，再从中取出最小的几个数，放一个新数组中，再取最大值　
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个值中最大的值。。。这是最全的问题了、、、

groundsky 2013-12-27

打赏
举报

mdt.compute(“max(字段）”）

bdmh 2013-12-26

打赏
举报

x = 0; For ii As Integer = 0 To 4 ts = mstring.mtrim(mdt.Rows(ii)("dadif")) 如果 ts > x x=ts Next

wind_cloud2011 2013-12-26

打赏
举报

  先排序，再从中取出最小的几个数，放一个新数组中，再取最大值　
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())

u013034598 2013-12-26

打赏
举报

引用 4 楼 wind_cloud2011 的回复:

 
     Dim arr(10) As Integer
        For ii As Integer = 0 To 10
            s = mstring.mtrim(mdt.Rows(ii)("dadif"))
            arr(ii) = s
        Next
   MessageBox.Show(arr.Max())'取出数组中最大值

大神请看楼上，最小的n个值的最大值

wind_cloud2011 2013-12-26

打赏
举报

 
     Dim arr(10) As Integer
        For ii As Integer = 0 To 10
            s = mstring.mtrim(mdt.Rows(ii)("dadif"))
            arr(ii) = s
        Next
   MessageBox.Show(arr.Max())'取出数组中最大值

u013034598 2013-12-26