计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.

1
6
28
120
这个VBS写的,参考思路吧
dim i,k,ysh,gs
for i = 1 to 200
ysh = 0
for k = 1 to i
if i mod k = 0 then
ysh = ysh + k
end if
next
if ysh mod i = 0 then
print i
gs = gs+1
end if
next
print "个数为" & gs