问题标题：
vb一个数如果恰好等于它的因子之和,这个数就称为"完数".例如6=1＋2＋3.编程找出1000以内的所有完数.一个数如果恰好等于它的因子之和,这个数就称为"完数".例如6=1＋2＋3.编程点击COMMAND按扭
问题描述：
vb一个数如果恰好等于它的因子之和,这个数就称为"完数".例如6=1＋2＋3.编程找出1000以内的所有完数.
一个数如果恰好等于它的因子之和,这个数就称为"完数".例如6=1＋2＋3.编程点击COMMAND按扭在TEXT中输出1000以内的所有完数.
例如28是一个完数,因为,28=1+4+7+2+14.
韩啟纲回答：
PrivateSubcommand1_Click()Text1=""Forn=1To1000Fori=1Ton/2IfnModi=0Thens=s+iEndIfNextIfs=nThenText1=Text1&""&ns=0NextEndSub
点击显示
其它推荐