'用法 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 IntegerFor Each str In Arr '遍历整个数组 If Array.IndexOf(Arr, str) <> Array.LastIndexOf(Arr, str) Then Return True End IfNextReturn False
以上代码是想判断一个整数数组是不是有重复值,下面的逻辑应该没有问题,
问题应该是出在第一句,这句应该如何改写,谢谢指教!