正在阅读：随机生成不重复记录的伪函数随机生成不重复记录的伪函数

2004-03-10 15:01 出处：CSDN 作者：oyiboy 责任编辑：linjixiong

　　　　　　'数据不为空，则表示未随机选取过。
　　　　　　随机索引=范围数据数组(随机索引 mod 范围数据数组)
　　　　　　　　if 随机结果="" then
　　　　　　　　'随机结果以","分隔每个随机值。
　　　　　　　　　　随机结果=随机结果 &； ","
　　　　　　　　end if
　　　　　　　　随机结果=随机结果 &；范围数据数组(随机索引)
　　　　　　　　范围数据数组(随机索引)=""　　'清空该数据表示已随机过。
　　　　　　　　循环标识=false　'结束循环。
　　　　　　end if
　　　　　　if 随机索引>范围数据数组维数*3 then
　　　　　　'如果随机索引大于范围数据数组维数的三倍，表示已经在范围数据数组维数内历遍过三次，跳出，防止死循环。
　　　　　　　　循环标识=false
　　　　　　end if
　　　　wend
　　end if
end function

应用：

用在随机选取不重复的数据表记录。
用getrows将数据表内ID标识换成一个二维数组，然后使用该函数随机选取指定数量的ID编号以","分隔，然后用in条件式将符合随机出来的ID编号的数据读出来即可。
随机选取不重复的数据。
将所有数据放到一个一维数据，然后用该函数挑随机挑选即可。

察看评论详细内容我要发表评论