对n个数排序输出（得不到正确结果，不知道哪错了）

[Gangelwn]

Module Module1

Sub Main()
Dim i, j, n, tmp, exchange As Integer
Dim a() As Integer
Console.Write("请输入n:")
n = Console.ReadLine()
ReDim a(n)
Console.WriteLine("请输入" & n & "个数：")
For i = 1 To n
a(i) = Console.Read()
Next
For i = 1 To n - 1
exchange = 0
For j = n To i + 1
If a(j) > a(j - 1) Then
tmp = a(j)
a(j) = a(j - 1)
a(j - 1) = tmp
exchange = 1
End If
Next

If exchange = 0 Then
Continue For
End If

Next
Console.WriteLine("输出排序后的数：")
For i = 1 To n
Console.Write(a(i) & Space(1))

Next
Console.ReadKey()
End Sub

End Module

我是用冒泡算法排序的。。。但执行结果却不正确
不知道哪里错了，，请大家帮我看下，谢谢！！！

[wuyq11]

Public Sub BubbleSort(ByVal R As Integer())
Dim i As Integer, j As Integer, temp As Integer
Dim exchange As Boolean

For i = 0 To R.Length - 1
exchange = False
For j = R.Length - 2 To i Step -1
If R(j + 1) < R(j) Then
temp = R(j + 1)
R(j + 1) = R(j)
R(j) = temp
exchange = True
End If
Next

If Not exchange Then
Exit For
End If
Next
End Sub

[root_]

Module Module1
    Sub Main()
        Dim i, j, n, tmp As Integer
        Dim a() As Integer
        Console.Write("请输入n:")
        n = Console.ReadLine()
        ReDim a(n)
        Console.WriteLine("请输入" & n & "个数：")
        For i = 0 To n - 1
            a(i) = Console.ReadLine()
        Next
        For i = 0 To n - 2
            For j = i + 1 To n - 1
                If a(i) > a(j) Then
                    tmp = a(i)
                    a(i) = a(j)
                    a(j) = tmp
                End If
            Next
        Next
        Console.WriteLine("输出排序后的数：")
        For i = 0 To n - 1
            Console.Write(a(i) & Space(1))
        Next
        Console.ReadKey()
    End Sub
End Module

[Gangelwn]

二楼的改了这个语句a(i) = Console.ReadLine() 这是读取下一行字符的输入函数
不行啊，执行出错
一楼的只是一个函数，利用你的函数写也是得不到结果

我觉的我算法没问题，实现从大到小排序
应该是其他一些语句上的用法不对。。
由于没写过控制台程序，所以对这些语句不是很熟悉，哪里错了也不知道

[Gangelwn]

a(i) = Console.ReadLine() '这里不能使用Read
我调试过了不行啊，用Console.ReadLine() 会出错啊
我的For j = n To i + 1 Step -1 是漏掉了Step -1
加上去了
关键是我的程序运行得不到正常结果。。。
不知道是哪语句用错了？

[boluor1987]

    Sub BubbleSort(ByVal Arr() As Integer, ByVal Length As Integer)
        '冒泡排序
        Dim i As Long, j As Long, tmp As Long
        For i = 0 To Length - 2
            For j = 0 To Length - i - 2
                If Arr(j) > Arr(j + 1) Then
                    tmp = Arr(j)
                    Arr(j) = Arr(j + 1)
                    Arr(j + 1) = tmp
                End If
            Next
        Next
    End Sub

假设定义了一个数组 : Dim Arr1(MAX) as Integer
调用时用 ： BubbleSort(Arr1,Arr1.Length)就可以了.

另外,类似这样的代码：

        For i = 0 To n - 1
            Console.Write(a(i) & Space(1))
        Next

在实际中还是少用,因为&操作每次循环都会申请一个比较略大一点点的数组,然后将原来的拷贝过来,再添加新元素,如果n>100000大家可以试一下,速度很慢..Net Framework中提供了一种缓冲类,效率很高.例如:

        Dim s1 As StringBuilder = New StringBuilder("")
        Dim i As Long
        For i = 0 To n-1
            s1.Append(CStr(Arr(i)) + Space(2))
        Next

当然需要先引用：Imports System.Text.

在vb6中也有这个问题,但没有提供类似上面的StringBuilder类,不过也有很好的优化,具体请参见：
http://19880711.com/blog/read.php?894

[特别]

Module Module1

    Sub Main()

        Dim i, j, n, tmp, exchange As Integer
        Dim a() As Integer
        Console.Write("请输入n:")
        n = Console.ReadLine()
        ReDim a(n)
        Console.WriteLine("请输入" & n & "个数：")
        For i = 1 To n
            a(i) = Console.ReadLine()   '这里不能使用Read
        Next
        For i = 1 To n - 1
            exchange = 0
            For j = n To i + 1 Step -1      '从大到小循环时，需要设置步长，默认为1,则永远不会进行循环
                If a(j) > a(j - 1) Then
                    tmp = a(j)
                    a(j) = a(j - 1)
                    a(j - 1) = tmp
                    exchange = 1
                End If
            Next

            If exchange = 0 Then
                Continue For
            End If

        Next
        Console.WriteLine("输出排序后的数：")
        For i = 1 To n
            Console.Write(a(i) & Space(1))

        Next
        Console.ReadKey()


    End Sub

End Module

[wenh7788]

冒泡排序没有这么复杂吧
混分的
哈哈

[wenh7788]

我觉得你的那个第二层循环
带代码是不是应该
从1 to n-i
就是排好序的（也就是大的数字都沉到下面去了）就不需要比较了

[bw555]

第二层循环
改为
For j = n To i + 1 Step -1
或
For j = i + 1 to n

[chndnk]

路过一起学习了

[Gangelwn]

Module Module1

Sub Main()
Dim i, j, n, tmp, exchange As Integer
Dim a() As Integer
Console.Write("请输入n:")
n = Console.ReadLine()
ReDim a(n)
Console.WriteLine("请输入" & n & "个数：")
For i = 1 To n
a(i) = Console.ReadLine()

Next
For i = 1 To n - 1
exchange = 0
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
tmp = a(j)
a(j) = a(j - 1)
a(j - 1) = tmp
exchange = 1
End If
Next

If exchange = 0 Then
Continue For
End If

Next
Console.WriteLine("输出排序后的数：")
For i = 1 To n
Console.Write(a(i) & Space(1))

Next
Console.ReadLine()

End Sub

End Module

在调试窗口输入数值时每输入一个数后必需换行
要不然得不到结果。。。由于把数值输入在一行中所以得不到结果
因为这条语句吧 a(i) = Console.ReadLine()
不知道可以用哪条输入语句，可以使得这样输入，例：12 15 16 11 而不用每次输入一个数换行