是求一定范围内的完数吗？
例如求1-1000的完数等。
代码如下：
<%
'求一个数的因子之和
function getXZSum(numb)
dim sum
sum = 0
for i = 1 to numb-1
if numb mod i = 0 then
sum = sum + i
end if
next
getXZSum = sum
end function
for a = 1 to 1000
if int(a) = int(getXZSum(a)) then
response.Write(a&"、")
end if
next
%>
这是个数学问题，不是编程问题。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024