这个程序输出的完美数不太对啊

这会对了可是之前24什么鬼

循环条件应该改成Until a=x，甚至改成Until a>x\2也可以（自己想想为什么），现在这个条件会把被判断的数本身加进约数和，于是就把1判断成完数了；另外，c<>x那个条件就是画蛇添足，你自己算算1+2+3+4+6+8是不是等于24？所以最后一个12就没加，然后就把24判断成完数了
另外还有一些不致出错但是有瑕疵的细节：变量d完全是打酱油的，一点作用没有；b=o这一行把数字0打成字母o了，这里由于o没有赋值，恰好默认是0了，所以没有出错

搜噶

一般是循环条件的设置