Foro de elhacker.net

Dim Re As New Random
Dim Result22aa55e As IEnumerable(Of Integer) =
              (
                  (Result1.Concat(Result2).Concat(Result3).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function))
         )
 
        Dim selecctedValues23aa As IEnumerable(Of Integer) = Result22aa55e.Take(11)
 
        '  Array.Sort(selecctedValues23aa)
        ' ListBox3.Sorted = True
 
      Me.ListBox3.Items.AddRange(selecctedValues23aa.Cast(Of Object).ToArray)  

Structure Pet
        Public Name As String
        Public Age As Integer
    End Structure
 
    Sub OrderByEx1()
        ' Create an array of Pet objects.
        Dim pets() As Pet = {New Pet With {.Name = "Barley", .Age = 8}, _
                             New Pet With {.Name = "Boots", .Age = 4}, _
                             New Pet With {.Name = "Whiskers", .Age = 1}}
 
        ' Order the Pet objects by their Age property.
        Dim query As IEnumerable(Of Pet) = _
            pets.OrderBy(Function(pet) pet.Age)
 
        Dim output As New System.Text.StringBuilder
        For Each pt As Pet In query
            output.AppendLine(pt.Name & " - " & pt.Age)
        Next
 
        ' Display the output.
        MsgBox(output.ToString())
    End Sub
 
    ' This code produces the following output:
    '
    ' Whiskers - 1
    ' Boots - 4
    ' Barley - 8 

Dim Re As New Random
        Dim Result22aa55e As IEnumerable(Of Integer) =
              (
                  (Result1.Concat(Result2).Concat(Result3).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(25, MAX))
                   End Function))
         )
        Dim selecctedValues23aa As IEnumerable(Of Integer) = Result22aa55e.Take(11)
        Dim liste As List(Of Integer) = selecctedValues23aa.ToList
        liste.Sort()
        ListBox3.Items.AddRange(liste.Cast(Of Object).ToArray)  

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    From value As Integer In Result22aa55e
    Take 11
    Order By value Ascending

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    Result22aa55e.
    Take(11).
    OrderBy(Function(value As Integer)
               Return value
            End Function)

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    From value As Integer In Result22aa55e
    Take 11
    Order By value Ascending

Dim selecctedValues23aa As IEnumerable(Of Integer) =
    Result22aa55e.
    Take(11).
    OrderBy(Function(value As Integer)
               Return value
            End Function)

Dim liste As List(Of Integer) = selecctedValues23aa.Take(11).ToList
        liste.Sort()