【已完美解决】根据多种条件，生成随机不重复数

香川群子

LMY123 发表于 2013-4-14 13:00
多谢大师指导，确实太强大了

5楼附件有更新……增加了乱序输出，或按从小到大顺序输出的两种变化。

请重新下载附件。

LMY123

香川群子 发表于 2013-4-14 13:08
呵呵，我不谦虚地说，这个是目前论坛里最好的随机取值实际应用代码。

多谢大师，只是有一点不明白，这么强大的代码是人写的，还是借助工具产生的？

LMY123

香川群子 发表于 2013-4-14 13:12
5楼附件有更新……增加了乱序输出，或按从小到大顺序输出的两种变化。

请重新下载附件。

多谢大师抽出宝贵的时间对我们进行耐心讲解，细心指导

香川群子

补充2：

最小间隔指定以后，是和指定小数位数直接相关联，并自动换算的，
不需要在指定时换算。

如：
1. 指定小数位数=0时，那么最小间隔h=1就是=1，h=5就是=5
2. 指定小数位数=2时，那么最小间隔h=1的含义就是间隔=0.01，h=5就是间隔=0.05 → 即自动按指定小数位换算成最小间隔
3. 指定小数位数=-1时，那么最小间隔h=1的含义就是间隔=10，h=5就是间隔=50 → 即自动按指定小数位换算成最小间隔

LMY123

香川群子 发表于 2013-4-14 13:21
补充2：

最小间隔指定以后，是和指定小数位数直接相关联，并自动换算的，

多谢大师再次指导，在学习消化大师代码的过程中，有不懂的，还希望得到大师的帮助和指导

香川群子

LMY123 发表于 2013-4-14 13:14
多谢大师，只是有一点不明白，这么强大的代码是人写的，还是借助工具产生的？

工具？

在IT行，人脑也是工具的一种。

LMY123

香川群子 发表于 2013-4-14 13:26
工具？

在IT行，人脑也是工具的一种。

多谢大师指教，明白了，最强的代码都是人想出来的

小花鹿

这个问题有点特别，练习一下：
Sub test()
Dim ar(), br(), min, max, n, i&, s, t1
min = [a2].Value * 100
max = [b2].Value * 100
s = max - min + 1
n = [c2].Value
ReDim br(1 To Int((n - 1) / 3) + 1, 1 To 3)
ReDim ar(1 To s, 1 To 1)
For i = 1 To s
    ar(i, 1) = (i + min - 1) / 100
Next i
For i = 1 To n
    t1 = Int(Rnd() * (s - i + 1)) + i
    br(Int((i - 1) / 3) + 1, ((i - 1) Mod 3) + 1) = ar(t1, 1)
    ar(t1, 1) = ar(i, 1)
Next i
[a3].Resize(Int((n - 1) / 3) + 1, 3) = br
End Sub

LMY123

小花鹿 发表于 2013-4-14 14:16
这个问题有点特别，练习一下：
Sub test()
Dim ar(), br(), min, max, n, i&, s, t1

多谢大师指导，经测试 ，效果非常好

香川群子

小花鹿 发表于 2013-4-14 14:16
这个问题有点特别，练习一下：
Sub test()
Dim ar(), br(), min, max, n, i&, s, t1

呵呵，代码写得不错……


我的代码实际上复杂了。
原因在于，当时考虑，直接定义数组 1 to s 时，会有如下问题：
如果s值很大，比如 几万亿……那么定义数组会占用很多内存……甚至超出极限而无法定义。