主题:  请教几位高手random的用法

radio

职务:版主
等级:3
金币:8.0
发贴:897
#12002/9/2 15:30:42
如果我使用random(8),一共取8个值,我怎么保证在1~8所有的数字均出现一次



D计划-混沌

职务:管理员
等级:6
金币:15.2
发贴:3528
#22002/9/2 16:14:25
on randomlist num
listold=[]
listnew=[]
pcount=num
repeat with i= 1 to num
listold.add(i)
end repeat
repeat with h=1 to pcount
i=random(num)
set listprop= getAt(listold,i)
listold.deleteAt(i)
listnew.add(listprop)
num=num-1
end repeat
return listnew
end
----------------------------------------
on exitFrame me
-- 得到一个随机的list
set hlist=randomlist(8)
go to the frame +1
end



radio

职务:版主
等级:3
金币:8.0
发贴:897
#32002/9/2 20:36:47
谢谢老兄指点迷津!