刪除從VB

Question

我正在做一個「一擲千金」類型的遊戲的一個項目列表在Visual Basic 2008

值我有分配5個值隨機至5盒出現問題。

例如，在一個遊戲中，盒可以容納這些值：

Box 1 = 1000 
Box 2 = 35000 
Box 3 = 25000 
Box 4 = 75000 
Box 5 = 5000 

並且在另一個遊戲，它們可以保持這些值

Box 1 = 75000 
Box 2 = 25000 
Box 3 = 1000 
Box 4 = 5000 
Box 5 = 35000 

的主要目的是隨機地分配這些值分配給每個框，一旦賦值，就不能同時分配給另一個框。

這裏是我此刻的代碼：

 Dim values As New List(Of Integer) 
     Dim box(4) As Integer 
     Dim randNum(4) As Integer 

     'adding values to the Value list 
     values.Add(1000) 
     values.Add(5000) 
     values.Add(25000) 
     values.Add(35000) 
     values.Add(75000) 

     Dim i As Integer 

     For i = 0 To 4 
      Dim RandomClass As New Random() 
      Dim RandomNumber As Integer 
      RandomNumber = RandomClass.Next(0, 4) 

      'assigning a box a random value form the list 
      box(i) = values(RandomNumber) 

      'removing that value from the list 
      values.RemoveAt(i) 
     Next 

     Console.WriteLine("Box 1 = " & box(0)) 
     Console.WriteLine("Box 2 = " & box(1)) 
     Console.WriteLine("Box 3 = " & box(2)) 
     Console.WriteLine("Box 4 = " & box(3)) 
     Console.WriteLine("Box 5 = " & box(4)) 

     Console.Read() 

VB不斷返回此錯誤消息當我嘗試牛逼運行應用程序：

指數超出範圍。必須是非負數且小於集合的大小。參數名稱：索引

在此先感謝您的任何答案。

Answer 1

當您刪除一個項目時，列表的長度會變小。所以在第二個循環中，4的索引不再存在。在第三個循環中，3不再存在，依此類推。試試這個：

Dim RandomClass As New Random() 
Dim RandomNumber As Integer 
For i = 0 To 4 
    RandomNumber = RandomClass.Next(0, values.count - 1) 

    'assigning a box a random value form the list 
    box(i) = values(RandomNumber) 

    'removing that value from the list 
    values.RemoveAt(i) 
Next 

Answer 2

史蒂夫的答案可以防止發生錯誤，但我認爲它仍然沒有達到你想要的。 values.RemoveAt(i)將始終從第一次，第二次，下一次等列表中刪除第一個項目...它不會刪除剛剛放在框中的值。爲此，您應該使用values.RemoveAt(RandomNumber)。

For i = 0 To 4 
    RandomNumber = RandomClass.Next(0, values.count - 1) 

    'assigning a box a random value form the list 
    box(i) = values(RandomNumber) 

    'removing that value from the list 
    values.RemoveAt(RandomNumber) 
Next