【技术贴安卓按键精灵】如何将0-9随机排列

每天都有很多网友问我问题，我把觉得不错的问题整理一下发出来。

问题：

我想把0-9随机排列成不重复的10个数字，该怎么做？

分析思路：

随机排列肯定会用到随机数，那么可以考虑每次获取一个数字，

然后存入到一个变量当中，当第二次获取一个数字以后，

和变量里面的数字进行比较，如果存在就不保存，

如果不存在就存入到变量当中，

当变量里面存满10个数字以后就不再存储了

所得结果就是想要的10个不重复的随机数

代码：

Randomize
Dim 随机数
Dim 序列=""
Do
    随机数=int(10*rnd())
    If InStr(1, 序列, 随机数) = 0 Then 
        序列 = 序列 & 随机数
        If Len(序列) = 10 Then 
            Exit Do
        End If
    End If
Loop
TracePrint 序列