选择排序法 排列10个随机产生的10~100之间的数

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

  Form_Load

End Sub

Private Sub Command2_Click()

p = ""

For i = 1 To 9

   For j = i + 1 To 10

    If a(i) < a(j) Then

     t = a(i): a(i) = a(j): a(j) = t

    End If

    Next j

   Next i

   For i = 1 To 10

    p = p & Str(a(i)) & ","

   Next

   label2.Caption = LTrim(Left(p, Len(p) - 1))

    

End Sub

Private Sub Form_Load()

  Dim p As String

  Randomize

  p = ""

  For i = 1 To 10

      Do

       x = Int(Rnd * 91) + 10

       yes = 0

       For j = 1 To i - 1

        If x = a(j) Then yes = 1: Exit For

       Next j

    Loop While yes = 1

    a(i) = x

    p = p & Str(a(i)) & ","

       Next i

       label1.Caption = LTrim(Left(p, Len(p) - 1))

       label2.Caption = ""

End Sub