VB选择法排序,新手请教!

[HL4567]

Private Sub Command1_Click()
Const N = 5
Dim a(1 To N) As Integer, i%, j%, k%, t%
Randomize
For i = 1 To N
  a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
  Do While i <= N - 1
   k = i
    Do While j >= i + 1 And j <= N
    If a(j) > a(k) Then k = j
    Loop
    t = a(i): a(i) = a(k): a(k) = t
Loop
Print
For i = 1 To N
   Print a(i);
Next i
End Sub

这段代码运行后不能排序,改了几下也没成功.向各位请教(想用Do语句实现排序)

[yachong]

Private Sub Command1_Click()
    Const N = 5
    Dim a(1 To N) As Integer, i%, j%, k%, t%
    Randomize
    For i = 1 To N
        a(i) = Int(Rnd * 90) + 10
        Print a(i);
    Next i
    Print
    i = 1
    Do While i <= N - 1
        k = i
        j = i + 1
        Do While j <= N
            If a(j) > a(k) Then k = j
            j = j + 1
        Loop
        t = a(i): a(i) = a(k): a(k) = t
        i = i + 1
    Loop
    Print
    For i = 1 To N
        Print a(i);
    Next i
End Sub

[贝隆]

Const N = 5
Dim a(1 To N) As Integer, i%, j%, k%, t%
Randomize
For i = 1 To N
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
i = 5
Do
j = 1
Do
If a(j) > a(j + 1) Then
k = a(j)
a(j) = a(j + 1)
a(j + 1) = k
End If
j = j + 1
Loop Until j > i - 1
i = i - 1
Loop Until i < 1
Print
For i = 1 To N
Print a(i);
Next i

[HL4567]

谢谢二位,弄明白了.

[贝隆]

其实这是数据结构的问题，我采用的是冒泡排序，建议你去看看。

[HL4567]

好的,多谢提醒!