呃!你把之前代码中的 Print fact(a)更改成 Text1.TexT=fact(a) 就可以只显示一个结果,把之前的覆盖掉。另外,如果想找出某一个偶数所有的求和组合(如10=3+7,10=5+5)可以参考之前回答 的评论。