VB编程：利用循环嵌套求1000以内的完数-18

运行效果： 编写总结     完数：它的因子之和恰好等于它的本身；     亏数：它的因子之和小于本身；     盈数：它的因子之和大于本身； 程序代码： Private Sub Form_Click()     Dim n, r, j, i As Integer     n = 1000     Me.Cls     For i = 1 To n - 1         r = 0      

>>阅读原文<<