找出一维数组有重复元素的索引值[已解决]

仙乃日

Local $arr_No[] = [1, 2, 3, 4, 5, 2]
找出元素2重复时的索引。自己写的代码：

Local $arr_No[] = [1, 2, 3, 4, 5, 2]
If arrRepeat($arr_No) <> 0 Then
        MsgBox(0,0,arrRepeat($arr_No))
EndIf
Func arrRepeat($arr)
;~判断一维数组内有无重复元素，有就重复返回用;间隔的索引值 无就返回0 ，$arrt为要判断的数组
        Local $No_str=""
        For $n = 0 To UBound($arr) - 1
                If IsDeclared($arr[$n]) Then
                         $No_str &=$n & ";"
                EndIf
                Assign($arr[$n], "")
        Next
        If $No_str="" Then
                Return 0
        Else
                Return $No_str
        EndIf
EndFunc   ;==>arrRepeat

如果数组为:Local $arr_No[] = [1, 2, 3, 4, 5, 2, 3]
如何区分出元素2与元素3后重复的索引呢？

q410225

冒泡排序法
建内外两个循环,应该可以做到.

q410225

For $n = 0 To UBound($arr) - 1
local $m
for $m=$n+1 to UBound($arr)
if $arr[$n]=$arr[$m] then
.................
endif
next
next