Private Sub Form_Click()

n = Val(InputBox("输入数字个数")) '要求输入n个数字 ReDim a%(n) For i = 1 To n a(i) = Int(Rnd * 100) Next For i = 1 To n - 1 Min = i For k = i + 1 To n If a(k) < a(Min) Then Min = k Next k t = a(i) a(i) = a(Min) a(Min) = t Print a(Min) Next Print a(i) Print "" End Sub