关于随机函数的问题。
我想限制.某一个数字只显示 30次 ，可是数据库统计没有问题。 要么多随机了，要么少随机了

比如说循环 20次，我想让 1 只显示 3次  2出现过4次  有限制的。次数够了,随机不再出现这个数字
请高人棒棒

Function sone(digits)

dim char_array(7)

Rcount7=统计数据库记录

Rcount6=统计数据库记录

Rcount5=统计数据库记录

Rcount4=统计数据库记录

Rcount3=统计数据库记录

Rcount2=统计数据库记录

Rcount1=统计数据库记录

Rcount0=统计数据库记录

if Rcount0<=4 then

char_array(0) = "0"

end if

if Rcount1<=31 then

char_array(1) = "1"

end if

if Rcount2<=29 then

char_array(2) = "2"

end if

if Rcount3<=20 then

char_array(3) = "3"

end if

if Rcount4<=15 then

char_array(4) = "4"

end if

if Rcount5<=15 then

char_array(5) = "5"

end if

if Rcount6<=5 then

char_array(6) = "6"

end if

if Rcount7<=25 then

char_array(7) = "7"

end if

randomize

do while len(output) < digits

num = char_array(Int(8 * Rnd +0 ))

output = output + num

loop

sone = output

End Function

------解决方案--------------------
先把3个1添加到数组里面，再补充剩下的数据，最后打乱数组顺序