小花鹿请进。关于随机不重复抽取 算法之 【数组经典洗牌法】原理

香川群子

小花鹿 发表于 2012-6-21 00:23
Randomize的解释还是不明白，看了帮助也不明白。

给你上个附件看看：

打开RandomizeTest文件，里面有一段代码会自动运行，输出一些随机数到工作表中。

你每次关闭（关闭是不会保存工作表）文件，然后再打开时，当然代码仍旧会自动运行……

但你将发现，每次获取的结果，是一模一样的乱序值。





Randomize.zip (9.9 KB, 下载次数: 125)

2012-6-21 14:21 上传

点击文件名下载附件

香川群子

小花鹿 发表于 2012-6-21 13:53
在这个帖里问个其它的问题：
我现在对常用的VBA语句和函数、字典、数组掌握的程度自认为是及格水平以上吧， ...

对这个问题的回答，将比较哲学：

1. 你想成为武林高手（VBA专家）

但问题是，这个真是你的真正目的么？


人生苦短，学海无涯。以有涯追无涯……


所以，正确答案是：

你学习VBA，是为了自身价值提高，以便增强实际工作能力；
还是为了能够在EH更好地帮助别人；
还是仅仅为了学习的乐趣？


目的不同，当然做法就不一样了。

香川群子

或许，顺其自然，不必要追求超人一等的能力，

而是活学活用自己目前已经达到的水平，去快乐地帮助别人……


同时，在不经意中，学习到他人的长处，自然而然地提高自己的水平，
应该说也是以一种好的生活态度。


呵呵。

bluexuemei

1. Sub ruby()
   
2. 'http://www.artonx.org/data/asr/下载1.9版本RUBY
   
3. Set x = CreateObject("scriptcontrol")
   
4. x.Language = "rubyscript"
   
5. y = x.eval("[1,2,3,4,5,6,7,8,9,10].sample(3)")'10个随机取3个
   
6. Stop '本地窗口查看
   
7. 
   
8. End Sub

复制代码

小花鹿

香川群子 发表于 2012-6-21 14:33
对这个问题的回答，将比较哲学：

1. 你想成为武林高手（VBA专家）

学VBA是为了解决实际问题，别的没有意义。

AVEL

VBA也有自己的局限性， 我学VBA就是为了工作。呵呵

jiminyanyan

小花鹿 发表于 2012-6-21 17:11
学VBA是为了解决实际问题，别的没有意义。

兴趣,帮助别人,提高自己,转化为财富,是有可能统一在一起的.
罗版在excel上是比较成功的一位，做的比较成功也有很多各大论坛的斑竹，高级会员，我们也可朝着这方向去努力．
单纯的兴趣，是比较难坚持下来的．

fzkoko

做人做事都一起教了{:soso_e179:}

lotteryman

学习了     

ctp_119

香川群子 发表于 2012-6-21 09:44
灰袍法师对rand随机函数有较深的分析。

简单说是为了防止每次代码执行随机函数时，返回相同系列的乱数
就是这个意思。。。

今天才来看是AVEL检查推荐来的，，，很是受用！！！谢谢！！分析的非常详细。。。