Массивы и коллекции .NET

Module Demo
    Sub Main()
        Dim values(4) As Integer
        values(4) = 9
        Console.WriteLine($"{values.Length}:{values.GetUpperBound(0)}")
    End Sub
End Module

Option Strict On
Namespace ReviewCase4_1
    Module Demo
        Sub Main()
            Dim reviewValues(5) As Integer
            reviewValues(5) = 10
            Console.WriteLine($"{reviewValues.Length}:{reviewValues.GetUpperBound(0)}")
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase4_1
    Module Demo
        Sub Main()
            Dim edgeValues(3) As Integer
            edgeValues(3) = 8
            Console.WriteLine($"{edgeValues.Length}:{edgeValues.GetUpperBound(0)}")
        End Sub
    End Module
End Namespace

Module Demo
    Sub Main()
        Dim queue = New List(Of String) From {"a", "b", "c"}
        queue.Insert(1, "x")
        queue.RemoveAt(0)
        Console.WriteLine(String.Join(",", queue))
    End Sub
End Module

Option Strict On
Namespace ReviewCase4_2
    Module Demo
        Sub Main()
            Dim reviewQueue = New List(Of String) From {"a", "b", "c"}
            reviewQueue.Insert(1, "x")
            reviewQueue.RemoveAt(0)
            Console.WriteLine(String.Join(",", reviewQueue))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase4_2
    Module Demo
        Sub Main()
            Dim edgeQueue = New List(Of String) From {"a", "b", "c"}
            edgeQueue.Insert(1, "x")
            edgeQueue.RemoveAt(0)
            Console.WriteLine(String.Join(",", edgeQueue))
        End Sub
    End Module
End Namespace

Module Demo
    Sub Main()
        Dim prices = New Dictionary(Of String, Decimal)(StringComparer.OrdinalIgnoreCase) From {
            {"Tea", 2.5D}
        }
        Dim price As Decimal
        Console.WriteLine(prices.TryGetValue("tea", price))
        Console.WriteLine(price)
    End Sub
End Module

Option Strict On
Namespace ReviewCase4_3
    Module Demo
        Sub Main()
            Dim reviewPrices = New Dictionary(Of String, Decimal)(StringComparer.OrdinalIgnoreCase) From {
                {"Tea", 2.5D}
            }
            Dim reviewPrice As Decimal
            Console.WriteLine(reviewPrices.TryGetValue("tea", reviewPrice))
            Console.WriteLine(reviewPrice)
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase4_3
    Module Demo
        Sub Main()
            Dim edgePrices = New Dictionary(Of String, Decimal)(StringComparer.OrdinalIgnoreCase) From {
                {"Tea", 2.5D}
            }
            Dim edgePrice As Decimal
            Console.WriteLine(edgePrices.TryGetValue("tea", edgePrice))
            Console.WriteLine(edgePrice)
        End Sub
    End Module
End Namespace

Module Demo
    Sub Main()
        Dim values = Enumerable.Range(1, 6).ToList()
        For index = values.Count - 1 To 0 Step -1
            If values(index) Mod 2 = 0 Then values.RemoveAt(index)
        Next
        Console.WriteLine(String.Join(" ", values))
    End Sub
End Module

Option Strict On
Namespace ReviewCase4_4
    Module Demo
        Sub Main()
            Dim reviewValues = Enumerable.Range(1, 7).ToList()
            For reviewIndex = reviewValues.Count - 1 To 0 Step -1
                If reviewValues(reviewIndex) Mod 3 = 0 Then reviewValues.RemoveAt(reviewIndex)
            Next
            Console.WriteLine(String.Join(" ", reviewValues))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase4_4
    Module Demo
        Sub Main()
            Dim edgeValues = Enumerable.Range(1, 5).ToList()
            For edgeIndex = edgeValues.Count - 1 To 0 Step -1
                If edgeValues(edgeIndex) Mod 1 = 0 Then edgeValues.RemoveAt(edgeIndex)
            Next
            Console.WriteLine(String.Join(" ", edgeValues))
        End Sub
    End Module
End Namespace