递归算法;情景2;递归的定义 如果一个函数在定义时直接或者间接地调用了自己这种算法在程序中统称为递归法;使用递归的条件;递归算法实例;Private Sub Command1_Click) Dim n As Integer n = Val(InputBox"请输入n的值) Sum = s(n) Print Sum End Sub Public Function s(n As Integer) As