不是这个的,随机数的确有可能连续出现相同的两个甚至更多的数,所以可以这样写代码:Dim iLast As Integer, iNow As Integer '上一个和本次随机数RandomizeiNow = iLastDo While iNow = iLast iNow = Int(Rnd(100) * 100)Loop
[此贴子已经被作者于2005-11-21 13:18:37编辑过]