Dim A() As Integer
'定义数组
ReDim A(1 To 15)
'分配空间
For i = 1 To 15
A(i) = Fix(Rnd * 91 + 10)
Next i
'生成随机数
For i = 1 To 14
m = i
For j = i + 1 To 15
If A(j) < A(m) Then m = j
Next j
q = A(m)
A(m) = A(i)
A(i) = q
Next i
'排序
For i = 1 To 15
Print A(i),
Next i
'输出
温馨提示:答案为网友推荐,仅供参考