请帮我编这个程序 VB的 急！！！

来源：百度知道 编辑：UC知道 时间：2024/09/22 05:31:01
请帮我编这个程序 VB的 急呀！！！

一个数刚好和它所有因子之和相等，例如：6=1+2+3，则6就是完数。求1000以内的各完数之和
把代码全部写出来
thank u~~
请问2楼(C_stu)，
能加你QQ ，或者百度HI你上线一下可以吗？？
想请教你！！！！！

敢问各位， “S=0” 是什么意思啊！！读不懂！

's=0初始化s的意思...你可以试着把他去掉看看结果...
's是储存当前i的所有因式之和的变量,所以每计算一个i后都要初始化为0来
'储存下一个i的因式之和!
Dim i As Integer
Dim j As Integer
Dim s As Integer
Dim r as Integer
For i = 1 To 1000
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then s = s + j
Next j

If s = i Then r=r+i
Next i
msgbox "1000以内各完数之和为" & r

for i=1 to 1000
s=0
for j=1 to i-1
if i mod j = 0 then s=s+j
next
if s=j then wscript.echo s&"是完数"
next