vb 如果一个数的因子之和等于这个数的本身,则称这样的数为完全数.
问题描述：
vb 如果一个数的因子之和等于这个数的本身,则称这样的数为完全数.
答
Private Sub Command1_Click()' m = Val(text1.Text):n = Val(text2.Text)m = 1:n = 10000If m
1怎么出来？
1 是故意过滤掉的。1不是完全数。
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。
10000以内的完全数共有4个 分别为 6，28，496，8128
第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6。第二个完全数是28，它有约数1、2、4、7、14、28，除去它本身28外，其余5个数相加，1+2+4+7+14=28。后面的完全数还有496、8128