以文本方式查看主题

-  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=70427)
--  作者：qixian2015
--  发布时间：2015/6/21 15:55:00
--  获得集合中的特定元素
请问一下，我有一个整数型数字的列的集合，十个元素。我想获得其中数字最小的三个列，来定义一个新的列集合。请问代码应该怎么写？查了一下教程，关于集合的章节里面没有相应的方法可以实现查找最小或最大的元素的方法
--  作者：don
--  发布时间：2015/6/21 16:32:00
--  

Dim v() As Integer = {10,7,9,8,6,1,3,4,2,5}

Dim V1 As New List(of Integer)

Dim V2 As New List(of Integer)

V1.AddRange(v)

V1.Sort


V2.Add(v1(0))

V2.Add(v1(1))

V2.Add(v1(2))


Output.Show(v2(0))
--  作者：qixian2015
--  发布时间：2015/6/21 18:30:00
--  
集合也有排序的方法？教程里面好像没看见过。还有，如果集合里面的元素有重复，怎么剔除重复的元素呢？
--  作者：游
--  发布时间：2015/6/21 21:56:00
--  
1、集合和数组都有排序的功能

2、   Dim oldArray() As Integer = {10, 7, 9, 8, 6, 1, 3, 4, 2, 5, 1, 2, 3}
        Array.Sort(oldArray)        
        Dim V1 As New List(Of Integer)
        For i As Integer = 0 To oldArray.Length - 1
            If Not V1.Contains(oldArray(i)) Then  V1.Add(oldArray(i))
        Next
        Dim newArray() As Integer = V1.ToArray