用VB编程解决百鸡问题