以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]判断数组的函数，如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42508)
--  作者：hiliuyong
--  发布时间：2013/11/14 8:09:00
--  [求助]判断数组的函数，如何写

\'用法 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

 

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

问题应该是出在第一句，这句应该如何改写，谢谢指教！
--  作者：狐狸爸爸
--  发布时间：2013/11/14 8:11:00
--  
Dim Arr As Integer() = Args(0)
--  作者：hiliuyong
--  发布时间：2013/11/14 8:12:00
--  
谢狐爸
--  作者：hiliuyong
--  发布时间：2013/11/14 8:18:00
--  

测试了下，

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

系统会报错，不知道为何，问题还是在第一句上。
--  作者：狐狸爸爸
--  发布时间：2013/11/14 8:22:00
--  
Dim vals() As Integer = {1,2,1,3}
output.show(Functions.Execute("abc",vals))
--  作者：hiliuyong
--  发布时间：2013/11/14 8:40:00
--  
谢谢，问题解决。