高手教教俺。求出1000之内的所有完数
我是个新手，刚学vb，有道题不会做了请指教。求出1000之内的所有完数。完数指的是一个数恰好等于它的因子之和。例如6的因子为1，2，3，而6=1+2+3，即6是完数。
其他答案
Dim n, r, j, i As Integer n = 1000 For i = 1 To n - 1 r = 0 For j = 1 To i - 1 If i Mod j = 0 Then r = r + j End If Next If r 展开
2010-12-09 08:14
来自北京市
赞(0)点赞赞(0)举报
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。
