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

那片叶子 · 发表于 2013-6-21 20:44:21

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

netegg · 发表于 2013-6-23 01:34:56

本帖最后由 netegg 于 2013-6-23 01:36 编辑

#include <Array.au3>

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

netegg · 发表于 2013-6-23 01:50:52

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 ")
排列组合的事就自己琢磨琢磨吧

那片叶子 · 发表于 2013-6-23 19:58:31

非常感谢，

5735988 · 发表于 2025-12-29 03:58:29

【已解决】

1007236046 · 发表于 2026-3-14 20:05:19

牛牛吗？10JQKA

		自动登录	找回密码
密码			加入

[AU3基础] 随机5位数字如何让其自动相加等于指定数值

相关帖子