Классы и структуры

Class Counter
    Public Value As Integer
End Class
Module Demo
    Sub Main()
        Dim first = New Counter With {.Value = 1}
        Dim second = first
        second.Value += 3
        Console.WriteLine(first.Value)
    End Sub
End Module

Option Strict On
Namespace ReviewCase6_1
    Class Counter
        Public Value As Integer
    End Class
    Module Demo
        Sub Main()
            Dim reviewFirst = New Counter With {.Value = 1}
            Dim reviewSecond = reviewFirst
            reviewSecond.Value += 7
            Console.WriteLine(reviewFirst.Value)
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase6_1
    Class Counter
        Public Value As Integer
    End Class
    Module Demo
        Sub Main()
            Dim edgeFirst = New Counter With {.Value = 1}
            Dim edgeSecond = edgeFirst
            edgeSecond.Value += 1
            Console.WriteLine(edgeFirst.Value)
        End Sub
    End Module
End Namespace

Structure Point
    Public X As Integer
End Structure
Module Demo
    Sub Main()
        Dim a = New Point With {.X = 1}
        Dim b = a
        b.X += 8
        Console.WriteLine($"{a.X}:{b.X}")
    End Sub
End Module

Option Strict On
Namespace ReviewCase6_2
    Structure Point
        Public X As Integer
    End Structure
    Module Demo
        Sub Main()
            Dim a = New Point With {.X = 1}
            Dim b = a
            b.X += 5
            Console.WriteLine($"{a.X}:{b.X}")
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase6_2
    Structure Point
        Public X As Integer
    End Structure
    Module Demo
        Sub Main()
            Dim a = New Point With {.X = 1}
            Dim b = a
            b.X += 6
            Console.WriteLine($"{a.X}:{b.X}")
        End Sub
    End Module
End Namespace

Class Order
    Public ReadOnly Property Id As Integer
    Public Sub New(id As Integer)
        If id <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(id))
        Me.Id = id
    End Sub
End Class

Option Strict On
Namespace ReviewCase6_3
    Class Order
        Public ReadOnly Property Id As Integer
        Public Sub New(reviewId As Integer)
            If reviewId <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(reviewId))
            Me.Id = reviewId
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase6_3
    Class Order
        Public ReadOnly Property Id As Integer
        Public Sub New(edgeId As Integer)
            If edgeId <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(edgeId))
            Me.Id = edgeId
        End Sub
    End Class
End Namespace

Class Account
    Private _balance As Decimal
    Public Sub Deposit(amount As Decimal)
        If amount <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(amount))
        _balance += amount
    End Sub
End Class

Option Strict On
Namespace ReviewCase6_4
    Class Account
        Private _balance As Decimal
        Public Sub Deposit(reviewAmount As Decimal)
            If reviewAmount <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(reviewAmount))
            _balance += reviewAmount
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase6_4
    Class Account
        Private _balance As Decimal
        Public Sub Deposit(edgeAmount As Decimal)
            If edgeAmount <= 0 Then Throw New ArgumentOutOfRangeException(NameOf(edgeAmount))
            _balance += edgeAmount
        End Sub
    End Class
End Namespace