用VB解决“百鸡百钱”问题