Function getRandomID(RndLen) Dim TNumAry(100) Dim RNum Dim i,temp RNum=0 For i=0 To 100 TNumAry(i)=i Next For i=0 To RndLen randomize temp=CInt(100*rnd) RNum=RNum+TNumAry(temp)*CInt(timer) Next getRandomID=RNum End 个人从网上看的一种随即数无重复生成算法,就是生成指定长度的数组(1-100)的数组。 然后随机取这个数组里的值,并乘以毫秒数最后得到无重复随机数。