Question

vb单击“数列生成”按钮，自动生成10个10~90之间的随机整数，存于数组a

vb单击“数列生成”按钮，自动生成10个10~90之间的随机整数，存于数组a中并在list1中显示，单击升序排序按钮，对数组a中的10个整数按从小到大进行排序，并将排序结果显示在list2中
求代码

Answer 1

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
  List1.Clear
  Randomize (Timer)
  For i = 1 To 10
    a(i) = Int(Rnd(i) * 81 + 10)
    List1.AddItem a(i)
  Next i
End Sub

Private Sub Command2_Click()
  List2.Clear
  For i = 1 To 9
    For j = i + 1 To 10
      If a(j) < a(i) Then
        t = a(i)
        a(i) = a(j)
        a(j) = t
      End If
    Next j
  Next i
  For i = 1 To 10
    List2.AddItem a(i)
  Next i
End Sub