vb 完数算法

Dim   i,   j,   sum   As   Integer   
  For   i   =   1   To   1000   
          sum   =   0   
          For   j   =   1   To   i   -   1   
                  If   i   Mod   j   =   0   Then   
                          sum   =   sum   +   j   
                  End   If   
          Next   j   
          If   i   =   sum   Then   Print   i   
  Next   i

老师，我太感谢你了！:loveliness:

我也有一点啊！:handshake 看起来，我们离二级距离太远。唉！！

同志们多一点信心吧....花点时间，程序也如读书，写上百次，也有效果