利用递归算法求阶乘(VB6.0源代码)