用按键精灵写个不重复随机数

好的，以下是用按键精灵写的不重复随机数代码：

Randomize
Dim arr(10) As Integer
For i = 0 To 9
    arr(i) = i
Next i
For i = 0 To 9
    r = Int((10 - i) * Rnd + i)
    temp = arr(i)
    arr(i) = arr(r)
    arr(r) = temp
Next i
For i = 0 To 9
    PressKey Chr(48 + arr(i))
Next i

这段代码可以生成 0 到 9 的不重复随机数，并将它们依次按下，你可以根据你的需要修改代码中的数字范围和数组长度。