一个计算完全数的算法

'-------------------------完全数的定义--------------------------
'我们来看一下4这个数，它的真因子有1、2，其和是3。由于4本身比其真
'因子之和要大，这样的数叫做盈数。再来看一下12这个数，这的真因子
'有1、2、3、4、6，其和是16。由于12本身比其真因子之和要小，这样的
'数就叫做亏数。那么有没有既不盈余，又不亏欠的数呢？既有没有恰恰
'等于它自己的所有真因子之和的数呢？有。这样的数就叫做完全数。
'---------------------------------------------------------------
'例如：6能被1、2、3整除，而1+2+3=6，所以，6是最小的完全数
'例如：28能被1、2、4、7、14整除，而1+2+4+7+14=28
'其他的完全数：496、8128、33550336

Function pd(x As Double) As String
Dim i As Double
Dim total As Double
For i = 1 To x - 1
    If x Mod i = 0 Then
        DoEvents
        total = total + i
    End If
Next i
If total = x Then
    pd = "是完全数"
Else
    pd = "不是完全数"
End If
End Function

Private Sub Command1_Click()
MsgBox pd(Me.Text1.Text)
End Sub