如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数。

以下是此题的【VB源代码】
Private Sub Form_Load()
    n = InputBox("请输入N的值")
    n = Val(n)
    m = InputBox("请输人M的值")
    m = Val(m)
    For j = n To m
        n = 0
        s = j
        For i = 1 To j - 1
            If j Mod i = 0 Then
                n = n + 1
                s = s - i
                Select Case n
                  Case 1
                    kO = i
                  Case 2
                    k1 = i
                  Case 3
                    k2 = i
                  Case 4
                    k3 = i
                  Case 5
                    k4 = i
                  Case 6
                    k5 = i
                  Case 7
                    k6 = i
                  Case 8
                    k7 = i
                  Case 9
                    k8 = i
                  Case 10
                    k9 = i
                End Select
            End If
        Next i

        If s = 0 Then
            Print j; "是一个完全数，它的因子是：";
            If n > 1 Then Print kO; k1;
            If n > 2 Then Print k2;
            If n > 3 Then Print k3;
            If n > 4 Then Print k4;
            If n > 5 Then Print k5;
            If n > 6 Then Print k6;
            If n > 7 Then Print k7;
            If n > 8 Then Print k8;
            If n > 9 Then Print k9;
            Print
        End If
    Next j
End Sub

运行此VB源码后结果情况如下图所示：


你也可以简单编程，源代码如下：

Private Sub Form_Click()
    m = InputBox("输入最小正整数")
    n = InputBox("输入最大正整数")
    For j = m To n
        Sum = 0
        For i = 1 To j
            If (j Mod i = 0) And (i <> j) Then Sum = Sum + i
        Next
        If j = Sum Then Print Sum & " 是完全数"
    Next
    Print
    Print "查找完毕"
End Sub

************************
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.8.html