一个数的所有真因数加起来正好等于这个自然数本身，在数学上，具有这种性质的自然数叫做完全数。关键是求出该自然数k的所有因子。如果k%i为0，则i为k的因子，用循环语句求出k 的所有真因子（1
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。
Dim a as Integer,b as Integer,c as Integer For a = 1 To 10000 c = 0 For b = 1 To a \ 2 If a Mod b = 0 Then c = c + b Next b If a = c Then Print Str(a) Next a
另附上java版的代码
import java.util.ArrayList; public class T013 { public static void main(String[] args){ ArrayList p = new ArrayList(); // 保存每组的分解因子 int count = 0; // 计数（完数的总个数） int sum; // sum = (每个因子之和) for(int i=2;i<10000;i++){ // 测试每个数 i sum = 0; for(int j=1;j以上所述就是本文的全部内容了，希望大家能够喜欢。
以上就是Basic求10000以内的完美数的详细内容，更多请关注0133技术站其它相关文章！
