vba编程题求1000之内的所有完数

1