张铎情深深雨蒙蒙剧照:高手请来$$我有一道vb problem未解决??

来源:百度文库 编辑:高校问答 时间:2024/05/11 03:51:57
"完全数"是一个数恰好等于它的因子之和。例28(1 2 4 7 14)而28=1+2+4+7+14,因此28是完全数。编写程序从键盘上输入2个正整数a b,输出a b之间全部的完全数。
小第我已编出判断一个数的程序
for i=1 to n
if n/i=int(n/i) then
s=s+i
else s=s+0
end if
next i
if s=2*s then
print i;
else
end if

非常初级
for i = MIN to Max
n=0
for j= 1 to i
if i mod j=0 then n=n+j
if i =n\2 then print i;
next
next