'-------------------------完全数的定义--------------------------
'我们来看一下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