请教1个模拟彩票程序
要从33个数里不回放随即选6个数 就是选中的数字从这33个数里排除掉循环6次 用什么方法可以实现啊
[解决办法]
Dim x%, i%, tmp%
Dim sjs(1 To 33)
For i = 1 To 33
sjs(i) = i
Next
Randomize
For i = 1 To 6
x = Int(((33 - (i - 1)) * Rnd) + 1)
tmp = sjs(33 - (i - 1))
sjs(33 - (i - 1)) = sjs(x)
sjs(x) = tmp
Next
For i = 28 To 33
Print sjs(i);
Next
