'Visual Basic 2010 Arrays als Return Value Procedures en Functies
Module Example
    Sub Main()
        Dim values As Integer()
        PrintArray(values)
        '
        values = GetIntegerArray(10)
        PrintArray(values)
        '
        Console.ReadLine()
    End Sub
    Sub PrintArray(ByVal values As Array)
        If values IsNot Nothing Then
            For Each element As Object In values
                Console.Write(element & " ")
            Next
            Console.WriteLine()
        Else
            Console.WriteLine("No array.")
        End If
    End Sub
    Function GetIntegerArray(ByVal capacity As Integer) As Integer()
        Dim integerArray(capacity - 1) As Integer
        GetIntegerArray = integerArray
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.