如何得到指定数字中任意几个数字的组合

比如1，2,3,4，5,6这六个数字，我想得到它任意5个数字的组合或任意4个数字的组合，该如何得到？

使用递归，函数主体如下（il_count为实例变量，仅用于统计，可以不要）， mle_1用于输出结果

//====================================================================
// 函数: w.wf_digui()
//--------------------------------------------------------------------
// 描述:递归输出符合条件的组合
//--------------------------------------------------------------------
// 参数:
// value long al[] //用来取组合的数组，如：{1,2,3,4,5,6}
// value string as //截止到目前为止，已经组合的数字串， 如：123
// value long al_start //从“用来取组合的数组”的第几位开始取，如：为2时，表示从{1,2,3,4,5,6}的2开始
// value long al_num //从“用来取组合的数组”中取几个数字，如：为2时，表示从{1,2,3,4,5,6}中取两个数字
//--------------------------------------------------------------------
// 返回: (None)
//--------------------------------------------------------------------
//====================================================================
long ll[], i,j, k
long ll_deal
string ls
//要取的个数为0，则返回
if al_num = 0 then return
//从开始为止al_start开始循环直到“用来取组合的数组”的最后一个数字

for j = al_start to upperbound(al)
//在循环中取1个数字，并将该数字添加到“已经组合的数字串”的后面

ls = as + string(al[j])
if al_num = 1 then //如果本次只需要再取1个数字，则取数字完毕，输出结果（il_count仅用于统计输出的数目，可以不要）
il_count ++
if mle_1.text <> '' then mle_1.text += '~r~n'
mle_1.text += string(il_count) + '~t：' + ls
else //如果本次需要取的数字超过1个，则在取得1个数字后，将取数起始位置 + 1，取数个数 -1， 然后递归往下取
//j已经循环到底了，这时候还没达到规定的个数，则返回，表示取不了了
if j = upperbound(al) then exit
wf_digui( al, ls, j + 1, al_num - 1)
end if
next

调用方法如下：
il_count = 0

//参数1：{1,2,3,4,5,6}为“用来取组合的数组”
//参数2：取出来的数字串的前缀
//参数3：从“用来取组合的数组”的第N个数字开始取
//参数4：需要取几个数字
wf_digui({1,2,3,4,5,6}, '输出', 1, 3)