1到33取5组不重复随机数

zcv2008

就是1到33随机组成5组数，数字不能重复，还剩3个数字，剩下的3个数字再随机组一组，就是6组数字
举个例子：
01-02-03-04-05-06
07-08-09-10-11-12
13-14-15-16-17-18
19-20-21-22-23-24
25-26-27-28-29-30
31-32-33-01-02-03


就是说前5组不能重复  一共是30个数，剩下3个数在组一组，这组的数可以跟前面的重复


求大神帮忙敲个源码，我在追加分

冯古屋

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_数组	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (33, i)
加入成员 (集_数组, 取文本右边 (“00” ＋ 到文本 (i), 2))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
rand	整数型
i	整数型
str	文本型

置随机数种子 ()
i ＝ 1
判断循环首 (取数组成员数 (集_数组) ＞ 0)
rand ＝ 取随机数 (1, 取数组成员数 (集_数组))
如果 (i ％ 6 ＝ 0)
str ＝ str ＋ 集_数组 [rand] ＋ #换行符
i ＝ 0
str ＝ str ＋ 集_数组 [rand] ＋ “-”
i ＝ i ＋ 1
删除成员 (集_数组, rand, )
判断循环尾 ()
调试输出 (str ＋ “01-02-03”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_数组, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (33, i)<br />     加入成员 (集_数组, 取文本右边 (“00” ＋ 到文本 (i), 2))<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 rand, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 str, 文本型<br /> <br /> 置随机数种子 ()<br /> i ＝ 1<br /> .判断循环首 (取数组成员数 (集_数组) ＞ 0)<br />     rand ＝ 取随机数 (1, 取数组成员数 (集_数组))<br />     .如果 (i ％ 6 ＝ 0)<br />         str ＝ str ＋ 集_数组 [rand] ＋ #换行符<br />         i ＝ 0<br />     .否则<br />         str ＝ str ＋ 集_数组 [rand] ＋ “-”<br />     .如果结束<br />     i ＝ i ＋ 1<br />     删除成员 (集_数组, rand, )<br /> .判断循环尾 ()<br /> 调试输出 (str ＋ “01-02-03”)

进击

版主在 我就不来丢人了...

镇坛道德标杆

可以用我发过的乱序算法先乱序这个数组   再顺次取出前30位即可，写起来比较简单

介绍个乱序算法  FisherYates
http://bbs.125.la/forum.php?mod=viewthread&tid=13950852
(出处: 精易论坛)