Office中国论坛/Access中国论坛

标题: 取部分（全部）不重复随机数组的算法 [打印本页]

作者: Trynew 时间: 2002-12-31 06:41
标题: 取部分（全部）不重复随机数组的算法
绝对最优算法！！！ 由数组取部分（全部）不重复随机数组的算法： [代码最简洁，变量最少，循环次数最少，有能改一字者，赏千金！！！

rivate Sub 命令0_Click() Const AllCount = 100, GetCount = 50 Dim a(1 To AllCount) As Long Dim i, Temp, RndNum As Long '赋值给数组 For i = 1 To AllCount a(i) = i Next '给数组随机排序 For i = 1 To GetCount RndNum = Int(Rnd * (AllCount + 1 - i)) + i '产生一个i到100之间的随机数 Temp = a(i) a(i) = a(RndNum) a(RndNum) = Temp Debug.Print a(i) Next i End Sub

[此贴子已经被作者于2006-9-22 14:25:22编辑过]

作者: 竹笛 时间: 2002-12-31 07:57
Trynew兄，给钱吧。
怎么看我就觉得少了一个Randomize
绝对最优算法看来是有问题的！

作者: 竹笛 时间: 2003-1-1 01:05
可改为：绝对最少代码算法

作者: 玄昌平最爱 时间: 2003-1-2 16:14
哥们,你们说的不亦乐,能不能说的清楚点,我是一点也不明白它到底能于什么呀

作者: zhengjialon 时间: 2003-1-2 16:26
起因在这里：
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=27182&ID=27182

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)