Module Module1
Sub Main(ByVal args As String())
Console.WriteLine("你想要排几个数的顺序(输入一个数字后按回车键):" & vbLf)
Console.Write(" " & A(i))
n = Integer.Parse(Console.ReadLine())
Dim A As Integer() = New Integer(n - 1) {}
Console.WriteLine("请逐个输入想要排序的数(每个数输入后按回车键):" & vbLf)
For i As Integer = 0 To n - 1
'接收你要排序的数
A(i) = Integer.Parse(Console.ReadLine())
For i As Integer = 0 To n - 1
Dim temp As Integer
'排序
For j As Integer = i + 1 To n - 1
For i As Integer = 0 To n - 1
If A(i) > A(j) Then
temp = A(j)
A(j) = A(i)
A(i) = temp
End If
&nbs天气预报p; Next
Next
Console.WriteLine("排序的成效:" & vbLf)
Next
'你想要几个数排序
Next
Console.Read()
REM System.Threading.Thread.Sleep(10000)
End Sub
End Module
Dim n As Integer
另一方法:实在用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
Console.Read()
End Sub
End Module