一道随机题,来帮帮我
各位大虾,我有一个问题,就是在随机出现的一组数组中,怎样让下一个随机数与前一个不一样?代码怎么写????麻烦各位给支支招.拜托了
不是这个的,随机数的确有可能连续出现相同的两个甚至更多的数,所以可以这样写代码:
Dim iLast As Integer, iNow As Integer '上一个和本次随机数
Randomize
iNow = iLast
Do While iNow = iLast
iNow = Int(Rnd(100) * 100)
Loop
[此贴子已经被作者于2005-11-21 13:18:37编辑过]