VB选择法排序

Question

假设已有整型数组定义：Dim a(1 To 10) As Integer,并且数组已赋值，请用选择法对其进行排序。

Answer 1

Private Sub Command1_Click()

  Dim a(1 To 10) As Integer

  For i = 1 To 10

    a(i) = Int(100 * Rnd)

    Print a(i);

  Next i

  Print

  For i = 1 To 9

    k = i

    For j = i + 1 To 10

      If a(j) < a(k) Then k = j

    Next j

    t = a(i): a(i) = a(k): a(k) = t

  Next i

  Print "排序以后的数:"

  For i = 1 To 10

    Print a(i);

  Next i

  Print

End Sub

本回答被提问者采纳