传址: Dim arr1() As Object = { " string1 " , " string2 " , " string3 " } Dim arr2() As Object = arr1 传值: Dim arr1() As Object = { " string1 " , " string2 " , " string3 " } Dim arr2() As Object ReDim arr2(arr1.Length - 1 )Array.Copy(arr1, arr2, arr1.Length) 转载于:https://www.cnblogs.com/modou/archive/2004/07/21/26071.html