'Visual Basic 2010 Arrays als Argumenten Procedures en Functies
Module Example1
    Sub Main()
        Dim numbers As Integer() = {1, 2, 3, 4, 5}
        PrintArray(numbers)
        '
        Dim words As String() = {"Hello", "World"}
        PrintArray(words)
        '
        Dim dates As Date()
        PrintArray(dates)                                                  ' (1)
        '
        PrintArray(Nothing)
        '
        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
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.