主题：[求助]判断数组的函数，如何写

'用法 Output.Show(Functions.Execute("数组是否有重复数值",{1,2,1,3}))
'http://www.cnblogs.com/msnadair/archive/2007/11/14/958986.html 参照本文

Dim Arr() As Integer = Args(0)
Dim str As Integer
For Each str In Arr '遍历整个数组
    If Array.IndexOf(Arr, str) <> Array.LastIndexOf(Arr, str) Then
        Return True
    End If
Next
Return False

以上代码是想判断一个整数数组是不是有重复值，下面的逻辑应该没有问题，

问题应该是出在第一句，这句应该如何改写，谢谢指教！

测试了下，

Output.Show(Functions.Execute("数组是否有重复数值",{1,2,1,3}))

系统会报错，不知道为何，问题还是在第一句上。