Visual Basic, neu in der Codierung. Müssen eine Liste von 100 Ganzzahlen machen eine gemischte Liste von 70 Ergebnissen erstellen

Question

Ich bin neu in der Codierung und ich habe fest auf diesem fest.

ich eine Liste in Visual Basic mit

Dim integerStable As New List(Of Integer)() 

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

erstellt habe ich versuche, diese Liste zu halten (es kann so lange gemischt werden, da alle Nummern in der Liste im Allgemeinen zu bleiben) und eine zweite erstellen Liste, wo es nur 70 Ergebnisse von diesem Shuffle hat.

Ich brauche diese Liste, damit ich später einige Aufgaben für mich ausführen kann.

Kann mir jemand helfen, herauszufinden, wie man das macht? Denken Sie daran, ich bin neu in der Codierung, aber ich werde versuchen, mitzukommen.

Answer 1

Einer der effizientesten Wege, um Ihre Liste erstellen würde wie folgt aussehen:

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

Das zumindest sollten Sie eine Menge Tipparbeit sparen !!

Sie können auch wie folgt vorgehen:

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

** Beachten Sie aber, dass das letztgenannte Beispiel werden Sie 101 Elemente geben als ganze Zahl zunächst auf 0 **

gesetzt

Sie müssen auch bedenken, dass Die Liste wird von 0 NOT 1 "indiziert", was eine wichtige Sache ist, die man sich merken sollte, wenn es darum geht, die Items damit zu manipulieren.

Answer 2

Es kann viel einfacher sein.

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 nimmt zwei Argumente. Die erste ist eine Startnummer und die zweite ist eine Zählung. Im Beispiel wurde eine Liste erstellt, die mit 0 beginnt und mit 99, 100 Elementen endet. Die OrderBy hat diese Liste nur nach Zufallszahlen sortiert.

list70 wird erstellt, indem die ersten 70 Elemente von listOnum genommen werden.

Das Random, PRNG, wird auf diese Weise erstellt, so dass nur EINZIGES nur einmal initialisiert wird. Sie können viele Probleme finden, die mit der falschen Initialisierung von Random verbunden sind.

edit: Etwas andere Vorgehensweise.

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