古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。例如28的因子是1、2、4、7、14，且1+2+4+7+14＝28，则28是一个完全数。编程求解[2，1000]内的所有完全数，用VB编写的程序运行界面如图1所示。

图1