怎样写一个“猴子排序”算法

你自己试试吧，看看我有没有跑题
记得以前玩过单向链表，那个比这个好用

回复楼主“ 输出尚有重复数字！！！
a = Array(5, 8, 2, 3, 7, 9, 6, 1, 0, 4)
For i = 1 To UBound(a) - 1
Do While Not a(i) < a(i + 1) '检测是否有序，如无序则进行随机数据交换
k = Int(Rnd * UBound(a) + 1)
t = a(k)
a(k) = a(i)
a(i) = t
Exit Do
Loop
Print a(i);
Next
”

miku_con:
这是按【洗牌法】思路弄的 ：
Dim n As Integer
Dim a(9) As Integer
n = 10
For i = 0 To n - 1 '数据共有n个
a(i) = i
k = Int(Rnd * n)
a(k) = k
t = a(i)
a(i) = a(k)
a(k) = t
Print a(i);
Next i
结果输出有多个数字重复！ 问题何在？？