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

Private Sub Form_Click()

Randomize '初始化随机数种子，否则每次产生相同的随机数序列

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

'在排序完以后再输出排序结果。 For i = 1 To n - 1

Print a(i) Next Print "" End Sub