递归实例:等差数列和等比数列通项公式。
以下为引用的内容: <% '================================================== '函数名:DengCha '作 用:等差数列公式 '参 数: a1 ------等差数列第1项值 '参 数: d ------公差 '参 数:n ------第n项 '返回值:等差数列第n项的值 '================================================== Function DengCha(a1,d,n) If Not(IsNumeric(a1) or IsNumeric(d) or IsNumeric(n) or n<1) Then Exit Function If n=1 Then DengCha = a1 Else DengCha = DengCha(a1,d,n-1) + d End If End Function '================================================== '函数名:DengBi '作 用:等比数列公式 '参 数: a1 ------等比数列第1项值 '参 数: q ------公比 '参 数:n ------第n项 '返回值:等比数列第n项的值 '================================================== Function DengBi(a1,q,n) If Not(IsNumeric(a1) or IsNumeric(q) or IsNumeric(n) or n<1) Then Exit Function If n=1 Then DengBi = a1 Else DengBi = DengCha(a1,q,n-1) * q End If End Function 'Response.write(DengCha(1,2,4)) 'Response.write(DengBi(2,2,4)) %> |