Mega Code Archive
Pass Integer to a function by value
<![CDATA[
Module Module1
Sub NoChangeToParameter(ByVal A As Integer)
A = 1001
Console.WriteLine("Value of A in subroutine " & A)
End Sub
Sub Main()
Dim Number As Integer = 100
Console.WriteLine("Number before function call: " & Number)
NoChangeToParameter(Number)
Console.WriteLine("Number before function call: " & Number)
End Sub
End Module
Number before function call: 100
Value of A in subroutine 1001
Number before function call: 100
]]>