--------->请高手们参加讨论算法<---------

Question

dim Data(30) as string
dim i as integerfor i =1 to 30
 i=rnd() % 30  
 debug.print Data(i)
next

Answer 1

关键在“真正随机”
呵呵，要不调API生成一个GUID，然后拿它作种子，哈哈
如果不够，做一个数组专门存放种子。
用GUID（够随机了吧？）转成数值来做rand的种子，产生若干个数字存放到数组。
然后再用GUID做一个新的种子来随机从数组中取出一个来作为你最后需要的种子。同时，清空数组。
如果需要下一个种子，重来。这个思路除了GUID，来自 Java核心编程。你可以不用GUID，用系统时间作种子来产生随机数再拿来做种子，产生若干个随机数放到数组，然后再随机取出其中一个作为最后需要的种子也就够了。