随机5位数字如何让其自动相加等于指定数值

那片叶子

例数字：5，3，2，10，6  自动选取其中3位相加=10或=20或=30，如果都不等于以上3个，则等于0

netegg

#include <Array.au3>

Dim $aArray[5] = [5,3,2,10,6]
$aNewArray = _ArrayCombinations($aArray, 3,'+')
_arraydisplay($aNewArray, "Array")
剩下的自己玩吧

netegg

Dim $j=0,$aNewArray1[100]
Dim $aArray[5] = [5,3,2,10,6]
$aNewArray = _ArrayCombinations($aArray, 3,'+')
For $i=1 to UBound($aNewArray)-1
        $aNewArray1[$j] = Execute($aNewArray[$i])
        $j+=1
next

_arraydisplay($aNewArray1, "Array Permuted ")
排列组合的事就自己琢磨琢磨吧

那片叶子

非常感谢，