数组排序1

Posted 2022-11-06 VB.Net

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

关于数组的排序，最简单的方式是调用Array.Sort()方法。此方法将使用 Array 中每个元素的 IComparable 实现，对整个一维 Array 中的元素进行排序。

参考以下代码：

    Sub Main()
        Dim testarr() As Integer = New Integer() 12, 44, 2, 54, 1, 24, 77, 12, 33

        Dim copyarr1() As Integer
        copyarr1 = testarr.Clone

        Array.Sort(copyarr1)
        Console.WriteLine("排序后的数组：")
        For i As Integer = 0 To copyarr1.Length - 1
            Console.Write(copyarr1(i) & " ")
        Next
        Console.WriteLine()

        Console.WriteLine("原数组：")
        For i As Integer = 0 To testarr.Length - 1
            Console.Write(testarr(i) & " ")
        Next
        Console.WriteLine()
        Console.ReadKey()

    End Sub

运行结果如下：

那么按照从大到小排列呢？使用Array.Reverse()方法就可以了，代码如下： 
 

    Sub Main()
        Dim testarr() As Integer = New Integer() 12, 44, 2, 54, 1, 24, 77, 12, 33

        Dim copyarr1() As Integer
        copyarr1 = testarr.Clone

        Array.Sort(copyarr1)
        Console.WriteLine("排序后的数组：")
        For i As Integer = 0 To copyarr1.Length - 1
            Console.Write(copyarr1(i) & " ")
        Next
        Console.WriteLine()

        Dim copyarr2() As Integer
        copyarr2 = testarr.Clone
        Array.Sort(copyarr2)
        Array.Reverse(copyarr2)

        Console.WriteLine("从大到小排序数组：")
        For i As Integer = 0 To copyarr2.Length - 1
            Console.Write(copyarr2(i) & " ")
        Next
        Console.WriteLine()

        Console.WriteLine("原数组：")
        For i As Integer = 0 To testarr.Length - 1
            Console.Write(testarr(i) & " ")
        Next
        Console.WriteLine()

        Console.ReadKey()
   End Sub

 运行结果如下：

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程 目录