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