完全数（Perfectnumber）是一些特殊的自然数：它所有的真因子（即除了本身以外的约数）的和，恰好等于它本身．例如：第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相

Question

完全数（Perfect number）是一些特殊的自然数：它所有的真因子（即除了本身以外的约数）的和，恰好等于它本身． 例如：第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6．又如：8的真因子是1，2，4，而1+2+4=7，所以8不是完全数．按定义设计一个QBASIC程序，判断自然数n是否为完全数．（要求画出程序框图）

Answer 1

程序框图如图…（8分）QBASIC程序如下：INPUT  ns=0i=1DOIF  n MOD i=0  THENs=s+iEND  IFi=i+1LOOP  UNTIL  i＞=nIF  s=n ...