Mega Code Archive
Passing arrays and individual array elements to procedures
<![CDATA[
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
ModifyArray(array1) ' array is passed by reference
Console.WriteLine( vbCrLf & _
"The values of the modified array are:" & vbCrLf )
' display modified elements of array1
For i = 0 To array1.GetUpperBound(0)
Console.WriteLine(" " & array1(i) )
Next
End Sub
' procedure modifies array it receives (note ByVal)
Shared Sub ModifyArray(ByVal arrayParameter As Integer())
Dim j As Integer
For j = 0 To arrayParameter.GetUpperBound(0)
arrayParameter(j) *= 2
Next
End Sub ' ModifyArray
End Class
]]>