VB.NET排序(原创)

Module Module1

     Sub Main(ByVal args As String())

         Console.WriteLine("你想要排几个数的顺序(输入一个数字后按回车键):" & vbLf)

         Dim n As Integer

             '接纳你要排序的数

             A(i) = Integer.Parse(Console.ReadLine())

         Dim A As Integer() = New Integer(n - 1) {}

         Console.WriteLine("请逐个输入想要排序的数(每个数输入后按回车键):" & vbLf)

End Module

         '你想要几个数排序

         n = Integer.Parse(Console.ReadLine())

         Next

             '排序

         For i As Integer = 0 To n - 1

             For j As Integer = i + 1 To n - 1

                 Dim temp As Integer

                 If A(i) > A(j) Then

                     temp = A(j)

                     A(j) = A(i)

                     A(i) = temp

                 End If

             Next

         Next

         Console.WriteLine("排序的结果:" & vbLf)

         For i As Integer = 0 To n - 1

         Console.Read()

             Console.Write(" " & A(i))

         REM System.Threading.Thread.Sleep(10000)

     End Sub

         For i As Integer = 0 To n - 1

 

另一方法:其实用sort排序更简单:

Module Module1
     Sub Main()
         REM 排序
       Dim L1 As New List(Of Byte)
         L1.AddRange(New Byte() {25, 2, 38, 4, 5, 6, 7, 8, 9})
         L1.Sort()
         For i As Integer = 0 To L1.Count - 1
             Console.WriteLine(L1(i))
         Next i
       &nb快播sp; Console.Read()
     End Sub
End Module

         Next