按降序排序数字

时间:2011-02-02 18:30:05

标签: vb.net

我有20个文本框。每个包含一个特定的数字。我希望textbox1到textboxN的编号按降序排列。如果任何文本框的值为零,那么我想保留该文本框。需要vb.net中的示例代码。

4 个答案:

答案 0 :(得分:5)

'用于按降序排列元素

   dim array(4) as integer 
     array(4)={4,6,2,9,1}
       'first sort the array and then reverse it as
      array.sort(4)
      array.reverse(4)
     sortlistbox.item.add(array(4))

答案 1 :(得分:3)

  Dim txt As New List(Of TextBox)
    Dim q = From i In txt 
            Where CInt(i.Attributes("value")) > 0 
            Order By CInt(i.Attributes("value")) Descending 
            Select i

Whana在你的收藏中尝试一些简单的linq查询?

答案 2 :(得分:1)

这个有点旧,但我遇到了同样的问题。

使用MSDN我发现了这个:Enumerable.OrderBy Method (IEnumerable, Func)

如果您只是向该查询添加.Reverse,那么它就是降序:

Dim query As IEnumerable(Of Pet) = pets.OrderBy(Function(pet) pet.Age).Reverse

答案 3 :(得分:0)

@Thom Morgan

  

这个有点旧,但我遇到了同样的问题。   使用MSDN我发现了这个:Enumerable.OrderBy方法(IEnumerable,Func)   如果您只是将.Reverse添加到该查询中,它就会降序:

Dim query As IEnumerable(Of Pet) = pets.OrderBy(Function(pet) pet.Age).Reverse

这就像一个魅力!谢谢!