如何创建一个每次都返回不同值的随机函数？

Question

我想写一个随机函数，返回一个随机数，它不同于它返回的最后5个不同的数字。

我在Excel VBA中使用

非常simular代码：

Function Rand(ByVal Low As Long, ByVal High As Long) As Long 
Randomize 
    Num3 = Num2 
    Num2 = Num1 
    Rand = Int((High - Low + 1) * Rnd) + Low 
    Num1 = Rand 

Do While Num1 = Num2 Or Num1 = Num3 Or Sheets(Csheet).Cells(Num1, 3) > 20 

     Rand = Int((High - Low + 1) * Rnd) + Low 
    Num1 = Rand 
    Loop 
End Function 

数量也需要检查，在希伯来书[I] .Known字是假的。 我想这一个：

private int Rand(int Min, int Max) 
     { 
      int i; 
      int x = 0; 
      Random rnd = new Random(); 
      oldNum[3] = oldNum[2]; 
      oldNum[2] = oldNum[1]; 
      oldNum[1] = oldNum[0]; 
      do 
      { 

       i = rnd.Next(Min, Max); 
       x++; 
      } 
      while (Heb[i].Known==false && x<10000 && oldNum.Contains(i)); 
      oldNum[0] = i; 
      return i; 

     } 

尽管如此，它似乎doesen't合作过好...返回每次0。

Min和Max是在它从randomises列表的区域（应为1之间-30） 希伯来是列表中的项目的数目（约500 - 1000项） 我初始化oldNum用：

int[] oldNum = new int[3]; 

Answer 1

这听起来像你需要一个Queue！

Random rng = new Random(); 
Queue<int> queue = new Queue<int>(); 

private int Rand(int min, int max) 
{ 
    int r; 

    while(queue.Contains(r = rng.Next(min, max))); 

    queue.Enqueue(r); 

    if(queue.Count > 5) queue.Dequeue(); 

    return r; 
}