Dim a as Integer,b as Integer,c as IntegerFor a = 1 To 10000c = 0For b = 1 To a / 2If a Mod b = 0 Then c = c + bNext bIf a = c Then Print Str(a)Next a

import java.util.ArrayList; public class T013 {   public static void main(String[] args){     ArrayList p = new ArrayList(); // 保存每組的分解因子     int count = 0; // 計(jì)數(shù)（完數(shù)的總個(gè)數(shù)）     int sum;  // sum = (每個(gè)因子之和)     for(int i=2;i<10000;i++){  // 測(cè)試每個(gè)數(shù) i       sum = 0;       for(int j=1;j<i/2+1;j++){         if(i%j==0){            p.add(j);  // 保存 i 的每個(gè)因子           sum += j;  // 保存sum(i的所有因子相加之和)         }       }       if(sum==i){   // 如果當(dāng)前 i 是完數(shù)，則輸出（i=所有因子之和）         count++;         System.out.printf("%4d"+" 是完數(shù),因子是"+i+"=",i);         for(int k=0;k<p.size()-1;k++){           System.out.print(p.get(k)+"+");         }         System.out.println(p.get(p.size()-1));       }       p.clear(); // 每個(gè) i 結(jié)束，清空數(shù)組，重計(jì)下一個(gè)i的因子。     }     System.out.println("/n共找到"+count+"個(gè)完數(shù)！");   } }