Процедуры, функции и параметры

Module Demo
    Function Normalize(value As Integer) As Integer
        If value < 0 Then Return 0
        If value > 100 Then Return 100
        Return value
    End Function
    Sub Main()
        Console.WriteLine(Normalize(120))
    End Sub
End Module

Option Strict On
Namespace ReviewCase3_1
    Module Demo
        Function Normalize(value As Integer) As Integer
            If value < 0 Then Return 0
            If value > 101 Then Return 101
            Return value
        End Function
        Sub Main()
            Console.WriteLine(Normalize(121))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase3_1
    Module Demo
        Function Normalize(value As Integer) As Integer
            If value < 0 Then Return 0
            If value > 99 Then Return 99
            Return value
        End Function
        Sub Main()
            Console.WriteLine(Normalize(119))
        End Sub
    End Module
End Namespace

Module Demo
    Sub Rename(ByVal item As List(Of String))
        item(0) = "changed"
        item = New List(Of String) From {"new"}
    End Sub
    Sub Main()
        Dim names = New List(Of String) From {"old"}
        Rename(names)
        Console.WriteLine(names(0))
    End Sub
End Module

Option Strict On
Namespace ReviewCase3_2
    Module Demo
        Sub Rename(ByVal reviewItem As List(Of String))
            reviewItem(0) = "changed"
            reviewItem = New List(Of String) From {"new"}
        End Sub
        Sub Main()
            Dim reviewNames = New List(Of String) From {"old"}
            Rename(reviewNames)
            Console.WriteLine(reviewNames(0))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase3_2
    Module Demo
        Sub Rename(ByVal edgeItem As List(Of String))
            edgeItem(0) = "changed"
            edgeItem = New List(Of String) From {"new"}
        End Sub
        Sub Main()
            Dim edgeNames = New List(Of String) From {"old"}
            Rename(edgeNames)
            Console.WriteLine(edgeNames(0))
        End Sub
    End Module
End Namespace

Module Demo
    Function Connect(host As String, Optional timeoutSeconds As Integer = 15) As String
        Return $"{host}:{timeoutSeconds}"
    End Function
    Sub Main()
        Console.WriteLine(Connect("db"))
    End Sub
End Module

Option Strict On
Namespace ReviewCase3_3
    Module Demo
        Function Connect(reviewHost As String, Optional reviewTimeoutSeconds As Integer = 16) As String
            Return $"{reviewHost}:{reviewTimeoutSeconds}"
        End Function
        Sub Main()
            Console.WriteLine(Connect("db"))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase3_3
    Module Demo
        Function Connect(edgeHost As String, Optional edgeTimeoutSeconds As Integer = 14) As String
            Return $"{edgeHost}:{edgeTimeoutSeconds}"
        End Function
        Sub Main()
            Console.WriteLine(Connect("db"))
        End Sub
    End Module
End Namespace

Module Demo
    Function Sum(ParamArray values() As Integer) As Integer
        Return values.Sum()
    End Function
    Sub Main()
        Console.WriteLine(Sum(1, 2, 4))
    End Sub
End Module

Option Strict On
Namespace ReviewCase3_4
    Module Demo
        Function Sum(ParamArray reviewValues() As Integer) As Integer
            Return reviewValues.Sum()
        End Function
        Sub Main()
            Console.WriteLine(Sum(1, 3, 8))
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase3_4
    Module Demo
        Function Sum(ParamArray edgeValues() As Integer) As Integer
            Return edgeValues.Sum()
        End Function
        Sub Main()
            Console.WriteLine(Sum(1, 1, 2))
        End Sub
    End Module
End Namespace