Случайное число от 1 до 20, исключая уже выбранные числа

Question

Я пытаюсь создать генератор случайных чисел, который выполняется несколько раз, но после каждого добавления добавленного ранее выбранного номера в список массивов, а затем исключая числа в массиве из случайной функции.

Любые идеи?

я попытался это, но он сделал все это в одной строке, но мне нужно его отдельно для вызова функции с использованием номера

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    TextBox1.Text = "" 


    For x = 0 To 5 
    Start: 
     Randomize() 
     intNumber = Int((20 * Rnd()) + 1) 
     For y = 0 To 5 
      If intNumber = arrNumber(y) Then 
       GoTo Start 
      End If 
     Next y 
     arrNumber(x) = intNumber 

    Next x 
    For i = 0 To 5 
     TextBox1.Text = TextBox1.Text & (arrNumber(i)) & " , " 

    Next 


End Sub 

Answer 1

Здесь у вас есть пример кода, который вы должны быть в состоянии адаптироваться к точным требования легко. Он включает в себя две кнопки (newRandom и reset): один для генерации нового случайного числа (отображается через MessageBox), а другой - для удаления списка, в котором хранится все число, появившееся до сих пор.

Dim alreadyPicked As List(Of Integer) = New List(Of Integer) 

Private Sub newRandom_Click(sender As System.Object, e As System.EventArgs) Handles newRandom.Click 

    Dim curNumber As Integer 
    If (alreadyPicked.Count < 20) Then 
     Dim rand As Random = New Random 
     Do 
      curNumber = rand.Next(1, 20) 
     Loop While (alreadyPicked.Contains(curNumber)) 
    End If 


    If (curNumber > 0 AndAlso Not alreadyPicked.Contains(curNumber)) Then 
     alreadyPicked.Add(curNumber) 
     MessageBox.Show("The new random number is: " & curNumber.ToString()) 
    Else 
     MessageBox.Show("Error") 
    End If 

End Sub 

Private Sub reset_Click(sender As System.Object, e As System.EventArgs) Handles reset.Click 

    alreadyPicked = New List(Of Integer) 

End Sub