Visual Basic, 코딩이 새로 추가되었습니다. 100 개의 정수 목록을 만들 필요가있다. 결과는 70 개가된다.

Question

코딩에 익숙하지 않은 나는 이것을 단단히 붙들고있다.

나는이 목록을 유지하기 위해 노력하고있어

Dim integerStable As New List(Of Integer)() 

integerStable.Add(0) 
integerStable.Add(1) 
integerStable.Add(2) 
'through to integerStable.Add(99) 

로 Visual Basic에서 목록을 만든 (그것은 한 모든 숫자는 일반적으로 목록에 남아으로 단행 할 수있다)과 2를 만들 그 셔플의 결과가 70 개 밖에없는 목록.

나는 그 목록을 필요로하므로 나중에 나에게 몇 가지 작업을 수행하도록 요청할 수있다.

아무에게도 어떻게 할 수 있습니까? 코딩에 익숙하지 않다는 것을 기억하십시오. 그러나 따라하기 위해 노력할 것입니다. 적어도 당신에게 입력을 많이 저장해야

Dim integerStable As New List(Of Integer) 
For i = 1 To 100 
    integerStable.Add(i) 
Next 

! :

Answer 1

다음과 같이 될 것이다 목록을 생성 할 수있는 가장 효율적인 방법 중 하나

당신은 또한 할 수있는 다음과 같은 : 후자의 예는 101 개 항목을 줄 것이다하지만 정수는 처음에 당신은 또한 것을 기억할 필요가 0 **

로 설정되어

Dim integerStable As New List(Of Integer) 
Dim i As Integer 
While i <= 100 
    integerStable.Add(i) 
    i += 1 
End While 

** 참고 목록은 0부터 1까지 '색인'됩니다. NOT 1은 항목을 조작 할 때 기억해야 할 중요한 사항입니다.

Answer 2

훨씬 간단 할 수 있습니다.

Private Shared PRNG As New Random 
' 100 numbers starting at zero, in random order 
Private listOnum As List(Of Integer) = Enumerable.Range(0, 100).OrderBy(Function(x) PRNG.Next).ToList 
' list of 70 numbers from list of 100 
Private list70 As List(Of Integer) = listOnum.Take(70).ToList 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    'did it work? 
    Dim ct As Integer = 1 
    For Each n As Integer In list70 
     Debug.WriteLine("{0}. {1,3}", ct, n) 
     ct += 1 
    Next 
End Sub 

Enumerable.Range에는 두 개의 인수가 사용됩니다. 첫 번째 숫자는 시작 숫자이고 두 번째 숫자는 숫자이므로 예제에서는 0에서 시작하여 99, 100 개의 항목으로 끝나는 목록을 만들었습니다. OrderBy는 그 목록을 임의의 숫자로 정렬했습니다.

list70은 listOnum에서 처음 70 개 항목을 가져와 생성됩니다.

랜덤, PRNG는 한 번만 초기화되는 임의의 랜덤 하나만 있도록 그렇게 만들어집니다. 무작위의 잘못된 초기화와 관련된 많은 문제를 발견 할 수 있습니다.

편집 : 약간 다른 접근 방식. p가 나는 적어도 많이 붙여 복사 않았지만 예전의 100 줄을 제거 갈 것입니다 :

Private Shared PRNG As New Random 
' 100 numbers starting at zero 
Private listOnum As List(Of Integer) = Enumerable.Range(0, 100).ToList 
' list of 70 random numbers from list of 100 
Private list70 As List(Of Integer) = listOnum.OrderBy(Function(x) PRNG.Next).Take(70).ToList 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    'did it work? 
    Dim ct As Integer = 1 
    For Each n As Integer In list70 
     Debug.WriteLine("{0}. {1,3}", ct, n) 
     ct += 1 
    Next 
    'recreate list of 70 
    list70 = listOnum.OrderBy(Function(x) PRNG.Next).Take(70).ToList 
End Sub