1回顶部 原理:利用一个临时数组保存好随机范围的数据(简称范围数据)索引或标识,用rnd随机生成临时数组的索引。验证临时数组索引所对应的数据,为空则视被记录过了,将随机数加一后重复验证操作直到临时数组索引对应的数据不为空,则由一个记录变量记录下对应的范围数据标识,并清空此项数据。然后进行下一个随机操作。 伪函数: '#### Randomize Timer
2回顶部 '数据不为空,则表示未随机选取过。 随机索引=范围数据数组(随机索引 mod 范围数据数组) if 随机结果="" then '随机结果 以","分隔每个随机值。 随机结果=随机结果 &; "," end if 随机结果=随机结果 &; 范围数据数组(随机索引) 范围数据数组(随机索引)="" '清空该数据表示已随机过。 循环标识=false '结束循环。 end if if 随机索引>范围数据数组维数*3 then '如果 随机索引 大于 范围数据数组维数的三倍,表示已经在 范围数据数组维数 内历遍过三次,跳出,防止死循环。 循环标识=false end if wend end if end function 应用: |
正在阅读:随机生成不重复记录的伪函数随机生成不重复记录的伪函数
2004-03-10 15:01
出处:CSDN
责任编辑:linjixiong