随机生成10个元素的两位数数组,把数组元素添加到list1中,再用排序法(选择排序？

Question

随机生成10个元素的两位数数组，把数组元素添加到list1中，再用排序法(选择排序，冒泡排序二选一)把数组内容按小到大排序，把排序后的数组添加到list2中。

Answer 1

Dim a(10) As Integer

Private Sub Command1_Click()

  Randomize

  For i = 1 To 10

    a(i) = Rnd * 90 + 10

    List1.AddItem a(i)

  Next i

End Sub

Private Sub Command2_Click()

  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

    List2.AddItem a(i)

  Next i

  List2.AddItem a(i)

End Sub