程序博客网 > 北京网络营销策划公司

求1,1,2,3,5,8,13,21,34...的第N位結果For ASP

来源：互联网发布：北京网络营销策划公司编辑：程序博客网时间：2024/05/21 17:02

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>求1,1,2,3,5,8,13,21,34,......的第N位結果</title>
</head>
<%
'==========================================
'  求1,1,2,3,5,8,13,21,34,......的第N位結果
'  遞迴方法
'==========================================
on error resume next
Server.ScriptTimeOut=999999  ''處理資料可能需要長時間
a=trim(request("t1"))
if a="" then
  response.Write("Please input number in textbox")
else
   Response.Write("第"+a+"位的結果是:")
   Response.Write(foo(cint(a)))
end if
'递归函数求第N位结果
function foo(a)
   if a<=0 then
      foo=0
   elseif a=1 or a=2 then
      foo=1
   else
      foo=foo(a-1)+foo(a-2)
   end if
end function
%>
<form name="form1" method="post" action="">
  <input name="t1" type="text" id="t1" size="20">
  <input type="submit" name="Submit" FONT-FAMILY: 'PMingLiU','serif'; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">提交">
</form>

北京网络营销策划公司

北京网络营销策划公司

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子白墙脏了怎么办墙壁纸脏了怎么办彩色乳胶漆脏了怎么办墙面涂料脱落怎么办涂料墙壁脏了怎么办墙面受潮脱落怎么办外墙砖空鼓渗水怎么办外墙有点渗水怎么办墙体漏水怎么办楼房外墙渗水怎么办小区外墙漏水怎么办房子墙壁渗水怎么办卫生间地漏漏水怎么办卫生间瓷砖渗水怎么办美国签证拒签怎么办木门油漆味太重怎么办汽车玻璃有划痕怎么办油性记号笔发干怎么办记号笔写不出来怎么办记号笔擦不掉怎么办记号笔写不出怎么办油性笔没水了怎么办手弄到记号笔怎么办封塑机卡纸时怎么办饭盒密封圈黑斑怎么办键盘粘连怎么办 youtube打不开怎么办打印机安装失败怎么办 dvd光盘打不开怎么办光驱不能刻录怎么办光盘打不开了怎么办烤箱受潮跳闸怎么办误食金刚石粉怎么办镀金项链掉色怎么办不会看红绿灯怎么办室内手机信号不好怎么办岩棉弄到身上怎么办卷曲机老夹丝怎么办天刀没碎银了怎么办电脑玩天刀很卡怎么办天刀修为溢出怎么办