LINQ - ma'lumot ustida so'rov

Module Dastur
    Sub Main()
        Dim sonlar() As Integer = {4, 17, 8, 23, 15, 42, 9}

        Dim kattalar = From s In sonlar
                       Where s > 10
                       Select s

        Console.WriteLine(String.Join(", ", kattalar))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim sonlar() As Integer = {4, 17, 8, 23, 15, 42, 9}

        Dim osib = From s In sonlar Order By s Select s
        Console.WriteLine(String.Join(", ", osib))

        Dim kamayib = From s In sonlar Order By s Descending Select s
        Console.WriteLine(String.Join(", ", kamayib))
    End Sub
End Module

Public Class Talaba
    Public Property Ism As String
    Public Property Ball As Integer
    Public Property Guruh As String

    Public Sub New(ism As String, ball As Integer, guruh As String)
        Me.Ism = ism
        Me.Ball = ball
        Me.Guruh = guruh
    End Sub
End Class

Module Dastur
    Function Royxat() As List(Of Talaba)
        Return New List(Of Talaba) From {
            New Talaba("Malika", 88, "A"),
            New Talaba("Husanboy", 92, "B"),
            New Talaba("Nodira", 75, "A"),
            New Talaba("Aziza", 95, "B"),
            New Talaba("Kamola", 61, "A")
        }
    End Function

    Sub Main()
        Dim alochilar = From t In Royxat()
                        Where t.Ball >= 85
                        Order By t.Ball Descending
                        Select t.Ism & " (" & t.Ball & ")"

        For Each s As String In alochilar
            Console.WriteLine(s)
        Next
    End Sub
End Module

Public Class Mahsulot
    Public Property Nom As String
    Public Property Narx As Decimal
    Public Property Soni As Integer

    Public Sub New(nom As String, narx As Decimal, soni As Integer)
        Me.Nom = nom
        Me.Narx = narx
        Me.Soni = soni
    End Sub
End Class

Module Dastur
    Sub Main()
        Dim omborxona As New List(Of Mahsulot) From {
            New Mahsulot("Olma", 12000D, 40),
            New Mahsulot("Anor", 18000D, 15),
            New Mahsulot("Uzum", 22000D, 8)
        }

        Dim hisobot = From m In omborxona
                      Select Nomi = m.Nom, Jami = m.Narx * m.Soni

        For Each q In hisobot
            Console.WriteLine($"{q.Nomi.PadRight(8)} {q.Jami}")
        Next
    End Sub
End Module

Public Class Talaba
    Public Property Ism As String
    Public Property Ball As Integer
    Public Property Guruh As String

    Public Sub New(ism As String, ball As Integer, guruh As String)
        Me.Ism = ism
        Me.Ball = ball
        Me.Guruh = guruh
    End Sub
End Class

Module Dastur
    Sub Main()
        Dim royxat As New List(Of Talaba) From {
            New Talaba("Malika", 88, "A"),
            New Talaba("Husanboy", 92, "B"),
            New Talaba("Nodira", 75, "A"),
            New Talaba("Aziza", 95, "B"),
            New Talaba("Kamola", 61, "A")
        }

        Dim guruhlar = From t In royxat
                       Group t By Kalit = t.Guruh Into Guruh = Group
                       Order By Kalit
                       Select Kalit, Soni = Guruh.Count(),
                              Ortacha = Math.Round(
                                  Guruh.Average(Function(x) x.Ball), 1)

        For Each g In guruhlar
            Console.WriteLine(
                $"{g.Kalit}-guruh: {g.Soni} talaba, " &
                $"o'rtacha {g.Ortacha}")
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim sonlar() As Integer = {4, 17, 8, 23, 15, 42, 9}

        Dim soroq = From s In sonlar Where s > 10 Order By s Select s
        Dim metod = sonlar.Where(Function(s) s > 10).OrderBy(Function(s) s)

        Console.WriteLine(String.Join(", ", soroq))
        Console.WriteLine(String.Join(", ", metod))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim ballar() As Integer = {88, 92, 75, 95, 61}

        Console.WriteLine(ballar.Count())
        Console.WriteLine(ballar.Sum())
        Console.WriteLine(ballar.Max())
        Console.WriteLine(ballar.Min())
        Console.WriteLine(ballar.Average())
        Console.WriteLine(ballar.Count(Function(b) b >= 85))
        Console.WriteLine(ballar.Any(Function(b) b > 90))
        Console.WriteLine(ballar.All(Function(b) b >= 60))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim sonlar() As Integer = {4, 17, 8, 23}

        Console.WriteLine(sonlar.First())
        Console.WriteLine(sonlar.First(Function(s) s > 10))
        Console.WriteLine(sonlar.FirstOrDefault(Function(s) s > 100))
        Console.WriteLine(sonlar.Last())

        Dim topildi = sonlar.FirstOrDefault(Function(s) s > 100)
        If topildi = 0 Then
            Console.WriteLine("100 dan katta son yo'q")
        End If
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim royxat As New List(Of Integer) From {1, 2, 3}

        Dim soroq = From s In royxat Where s > 1 Select s

        royxat.Add(10)

        Console.WriteLine(String.Join(", ", soroq))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim royxat As New List(Of Integer) From {1, 2, 3}

        Dim qotirilgan = (From s In royxat Where s > 1 Select s).ToList()

        royxat.Add(10)

        Console.WriteLine(String.Join(", ", qotirilgan))
    End Sub
End Module