Modify Array Element By Value

Imports System

Public Class MainClass

    Shared Sub Main(ByVal args As String())
      Dim array1 As Integer() = New Integer() {1, 2, 3, 4, 5}
      Dim i As Integer

      Console.WriteLine( "The values of the original array are:" & vbCrLf )

      ' display original elements of array1
      For i = 0 To array1.GetUpperBound(0)
         Console.WriteLine(  "  " & array1(i) )
      Next

      Console.WriteLine(  vbCrLf & vbCrLf & _
         "EFFECTS OF PASSING ARRAY ELEMENT " & _
         "BY VALUE:" & vbCrLf & vbCrLf & "array1(3) " & _
         "before ModifyElementByVal: " & array1(3) )

      ' array element passed by value
      ModifyElementByVal(array1(3))


    End Sub

   Shared Sub ModifyElementByVal(ByVal element As Integer)
      Console.WriteLine(  vbCrLf & "Value received in " & _
         "ModifyElementByVal: " & element )
      element *= 2
      Console.WriteLine(  vbCrLf & "Value calculated in " & _
         "ModifyElementByVal: " & element )
   End Sub ' ModifyElementByVal
End Class

Related examples in the same category

1.	Object parameter passed by Value and by Reference
2.	Structure parameter passed by Value and by Reference
3.	String parameter passed by Value and by Reference
4.	Array parameter passed by Value and by Reference
5.	Function with pass by value Parameter
6.	Passing arrays and individual array elements to procedures
7.	Array passed By Value
8.	Squares three values ByVal and ByRef, displays results

Modify Array Element By Value : ByVal « Language Basics « VB.Net

Related examples in the same category