生成由4个数字，能组成的所有数字组合。

5735988

#include <Array.au3>

Dim $aArray[5] = [1,3,2,6,8]
$aNewArray = _ArrayCombinations($aArray, 3,',')
_arraydisplay($aNewArray, "Array")
我想生成由这5个数字，能组成的10组数字。  
其中有2个数字一样的，不要。
比如 332     266    366   133  这样的不要，其他的保留。



主要是想生成 10套不一样的，三位数字
上面五个数字，随机生成 10套组合结果：
126   268    168  326   162  621  623   236    862   182  



===========================看了帮助一个小时，下面是自己写的，还是不对


Local $Y, $rand[5] = [5, 3, 2, 9, 6]
Local $_rStr = ""
$num = 3
For $j = 1 To $num
        Local $_tStr = $rand[Random(1, UBound($rand))]
        If StringInStr($_rStr, $_tStr) Then
                $j -= 1
                ContinueLoop
        EndIf
        $_rStr&= $_tStr&","
Next
MsgBox(0, 0, $_rStr)
有点接近了，还没好

5735988

Local $Y, $rand[5] = [5, 3, 2, 9, 6]
Local $_rStr = ""
$num = 3
For $j = 1 To $num
        Local $_tStr = $rand[Random(1, UBound($rand))]
        If StringInStr($_rStr, $_tStr) Then
                $j -= 1
                ContinueLoop
        EndIf
        $_rStr&= $_tStr&","
Next
MsgBox(0, 0, $_rStr)


好像答案又接近了一点点。。。

邪恶海盗

之前有个类似的帖子可以参考一下：

讨论一个题目的思路
https://www.autoitx.com/thread-73848-1-1.html