房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • 高手教教俺。求出1000之内的所有完数

    我是个新手，刚学vb，有道题不会做了请指教。求出1000之内的所有完数。完数指的是一个数恰好等于它的因子之和。例如6的因子为1，2，3，而6=1+2+3，即6是完数。

    提问者：孟竹

    发布于2010-12-09

共1个回答
  • fanny_zung 丨Lv 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 = j Then MsgBox "the result is:" & Str(r) r = 0 End If Next
    +1 2010-12-09 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。