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

        For j = 1 To i - 1

            If i Mod j = 0 Then

                r = r + j      '累加因子

            End If

        Next

        If r = j Then      '判断完数：数字=因子之和

            Print Str(r) + "的因子是:";

            For j = 1 To i - 1

                If i Mod j = 0 Then

                    Print Str(j) + ";";

                End If

            Next

            Print

        End If

    Next

End Sub

\