当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP教程:等差数列和等比数列通项公式

ASP
使用ASP中的VB ActiveX.dll文件
用ADO的COMMAND对象实现对WEB数据库动态数据查询的方法
在ASP中使用简单Java类
借助组件使用asp连接informix全方案
用ADSI编程实现IIS中建立虚拟目录
不刷新页面筛选数据库中的数据
使用ISAPI过滤器增强IIS的功能
利用J2ME与ASP建立数据库连接
用通ASP直接获取用户真实IP地址
用ASP编写计数器的优化方法
通过ASP远程注册自己的组件
检测IP地址是否真正合法的函数
用asp做access的远程接口
错误80004005信息处理方法
ASP学习:urldecode 方法补遗
在HTML页面中实现点击数统计
ASP字数计算函数
用ASP随机生成文件名的函数
单页面判断浏览器是否接受 Cookies
存储过程介绍及asp+存储过程的使用

ASP教程:等差数列和等比数列通项公式


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 167 ::
收藏到网摘: n/a

递归实例:等差数列和等比数列通项公式。

以下为引用的内容:
<%
'==================================================
'函数名: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))
%>