Question

ASP程序计算 1到50任意6个数相的和等于100

1-50的数字中,任意7个数的和等于100，要用asp程序计算显示这7个数有多少种组合，100是任意输入的；输入120也要计算1-50的数字中任意7个数的和为120有多少种组合，谢谢！

Answer 1

<%
sub add100(inn)
inn=int(inn)
dim a1
dim a2
dim a3
dim a4
dim a5
dim a6
dim a7
for a1=1 to 50
for a2=1 to 50
for a3=1 to 50
for a4=1 to 50
for a5=1 to 50
for a6=1 to 50
for a7=1 to 50
if a1+a2+a3+a4+a5+a6+a7=inn then
response.write("a1="&a1&" a2="&a2&"亮悉塌 a3="&a3&" a4="&a4&" a5="&a5&" a6="敬圆&a6&" a7="&a7&"<br>")
end if
next
next
next
next
next
next
next
end sub
call add100(100)
%>
思路是这样应该可以，没测试，，， 不管如何，我是一个个陆伍字打上去的，这么点分给了吧。
这组合 一般会超出服务器响应，因为循环太大了。 希望还有更合理的方法