递归函数用两种方法说明,子函数调用。VB6.0源代码编写