高手救命

[bingochen]

问一下，现在有个数组arr(10)里面存着10个整数，现在要取出这10个整数中的3个数和等于一个整数（这个整数是可知的），然后要列出这3个数的所有组合，用asp怎么写？

[bingochen]

每人回复
自己顶一下

[leiaming]

自己解决

[Programmersheaven]

function get(cnt){
var list="";//注意，输出结果为字符串，请视需要改动
for(var i=0;i<arr.length;i++){
for(var j=0;j<arr.length&&j!=i;j++){
for(var z=0;z<arr.length&&z!=j&&z!=i;z++){
if(i+j+z==cnt){
list+=i+"+"+j+"+"+z+",";
}
}
}
}
return list
}

[Programmersheaven]

cnt 为要求和的整数值
输出类似于 "11+12+13, 15+15+17,"

[Programmersheaven]

错了，应改成function get(arr,cnt);

<%
Response.Write(get(new Array(1,2,3,4,5,6,7,8,9,10),16));
%>

[Primer2002cn]

我做了一个比较笨的：
Dim arr(10)
Dim i
Dim j
Dim k
Dim iSpec
For i = 0 To 10
arr(i) = i
Next
iSpec = 10 '这个值可以自己指定
For i = 0 To 10
If Not i > iSpec Then
For j = 0 To 10
If Not (arr(i) + arr(j) > iSpec) And j <> i Then
For k = 0 To 10
If arr(i) + arr(j) + arr(k) = iSpec And j <> k And k <> i Then
Response.write arr(i) & "+" & arr(j) & "+" & arr(k)
Exit For
End If
Next
End If
Next
End If
Next

[bingochen]

Primer2002cn 的不行啊
For i = 0 To 10
arr(i) = i
Next
我的arr（10）中已经有一组值了
要做的是从这组值中取出3个数

[Primer2002cn]

那你把这段初始化的去掉就可以啦

[bingochen]

我试了都不行
我觉得这个应该用一种特殊的算法来实现，不是这样的

[Primer2002cn]

大哥，怎么不行啦？
Dim arr(10)
Dim i
Dim j
Dim k
Dim iSpec
For i = 0 To 10
arr(i) = i
Next
iSpec = 10 '这个值可以自己指定
For i = 0 To 10
If Not i > iSpec Then
For j = 0 To 10
If Not (arr(i) + arr(j) > iSpec) And j <> i Then
For k = 0 To 10
If arr(i) + arr(j) + arr(k) = iSpec And j <> k And k <> i Then
Response.write arr(i) & "+" & arr(j) & "+" & arr(k) & vbcrlf
Exit For
End If
Next
End If
Next
End If
Next

[bingochen]

Primer2002cn msn多少？
怎么联系