Kolleksiyalar

Module Dastur
    Sub Main()
        Dim shaharlar As New List(Of String)

        shaharlar.Add("Namangan")
        shaharlar.Add("Andijon")
        shaharlar.Add("Farg'ona")

        Console.WriteLine(shaharlar.Count)
        Console.WriteLine(shaharlar(0))
        Console.WriteLine(String.Join(", ", shaharlar))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim shaharlar As New List(Of String) From {
            "Namangan", "Andijon", "Farg'ona"
        }

        Console.WriteLine(String.Join(", ", shaharlar))

        shaharlar.Remove("Andijon")
        Console.WriteLine(String.Join(", ", shaharlar))

        shaharlar.Insert(1, "Qo'qon")
        Console.WriteLine(String.Join(", ", shaharlar))

        Console.WriteLine(shaharlar.Contains("Namangan"))
        Console.WriteLine(shaharlar.IndexOf("Qo'qon"))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim ballar As New List(Of Integer) From {85, 92, 78, 95}

        ballar.Sort()
        Console.WriteLine(String.Join(", ", ballar))

        Console.WriteLine(ballar.Sum())
        Console.WriteLine(ballar.Average())
        Console.WriteLine(ballar.Max())
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim talabalar As New List(Of String) From {
            "Malika", "Aziza", "Kamola"
        }

        For Each talaba As String In talabalar
            Console.WriteLine($"- {talaba}")
        Next

        For i As Integer = 0 To talabalar.Count - 1
            Console.WriteLine($"{i + 1}. {talabalar(i)}")
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim sonlar As New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8}

        sonlar.RemoveAll(Function(x) x Mod 2 = 0)
        Console.WriteLine(String.Join(", ", sonlar))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim poytaxtlar As New Dictionary(Of String, String)

        poytaxtlar.Add("O'zbekiston", "Toshkent")
        poytaxtlar.Add("Qozog'iston", "Ostona")
        poytaxtlar("Qirg'iziston") = "Bishkek"

        Console.WriteLine(poytaxtlar("O'zbekiston"))
        Console.WriteLine(poytaxtlar.Count)
        Console.WriteLine(poytaxtlar.ContainsKey("Tojikiston"))
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim narxlar As New Dictionary(Of String, Integer) From {
            {"olma", 12000},
            {"anor", 18000}
        }

        Dim narx As Integer
        If narxlar.TryGetValue("anor", narx) Then
            Console.WriteLine($"Anor narxi: {narx}")
        End If

        If Not narxlar.TryGetValue("banan", narx) Then
            Console.WriteLine("Banan ro'yxatda yo'q")
        End If
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim yoshlar As New Dictionary(Of String, Integer) From {
            {"Malika", 22}, {"Husanboy", 25}, {"Aziza", 20}
        }

        For Each juft In yoshlar.OrderBy(Function(x) x.Key)
            Console.WriteLine($"{juft.Key}: {juft.Value}")
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim harflar As New HashSet(Of String)

        Console.WriteLine(harflar.Add("a"))
        Console.WriteLine(harflar.Add("b"))
        Console.WriteLine(harflar.Add("a"))
        Console.WriteLine(harflar.Count)

        Dim sonlar As New List(Of Integer) From {1, 2, 2, 3, 3, 3, 4}
        Dim noyob As New HashSet(Of Integer)(sonlar)
        Console.WriteLine(noyob.Count)
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim navbat As New Queue(Of String)
        navbat.Enqueue("birinchi")
        navbat.Enqueue("ikkinchi")
        navbat.Enqueue("uchinchi")

        Console.WriteLine(navbat.Dequeue())
        Console.WriteLine(navbat.Dequeue())

        Dim stek As New Stack(Of String)
        stek.Push("birinchi")
        stek.Push("ikkinchi")
        stek.Push("uchinchi")

        Console.WriteLine(stek.Pop())
        Console.WriteLine(stek.Pop())
    End Sub
End Module