functionargu_byreferenced.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 53 行

'==============================================================================================
'Name:Manish Kumar Sinha 
'Email Address: [e-mail]
'Test Case Name: Argument passing by Reference:
'APR-1.3.0: If the variable elements is of reference type i.e. it contain a pointers to a class
'		then procedure can change the members of instance to which it points  
'==============================================================================================

Imports System
Imports System.Array
Module APR_1_3_0

    Public Function Increase(ByRef A() As Long) As Long()
        Dim J As Integer
        For J = 0 To 3
            A(J) = A(J) + 1
        Next J
        Return A
    End Function
    ' ...
    Public Function Replace(ByRef A() As Long) As Long()
        Dim J As Integer
        Dim K() As Long = {100, 200, 300, 400}
        A = K
        For J = 0 To 3
            A(J) = A(J) + 1
        Next J
        Return A
    End Function
    ' ...

    Function Main() As Integer
        Dim N() As Long = {10, 20, 30, 40}
        Dim N1(3) As Long
        Dim N2(3) As Long
        Dim i As Integer
        N1 = Increase(N)
        For i = 0 To 3
            If (N(i) <> N1(i)) Then
                System.Console.WriteLine("#A1, Unexception Behaviour in Increase Function") : Return 1
            End If
        Next i
        N2 = Replace(N)
        For i = 0 To 3
            If (N(i) <> N2(i)) Then
                System.Console.WriteLine("#A2, Unexception Behaviour in Increase Function") : Return 1
            End If
        Next i

    End Function
End Module

'==============================================================================================