求Fibonacci数列的问题。

Question

除上面问题外，另抛出一题：Email判断的最佳正则表达式？
[\w_-]{3,}@[\w_-]+\.[\w_-]{2,}(\.+[\w_-]{2,3})*

Answer 1

'这样执行起来就快多了！
'-------------------------<%@ Page Language="VB" Debug="true"%>
<Script Language="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As EventArgs)
dim tBegin,tEnd as Double
dim tDone as decimal
tBegin=Timer()

    Const Num=100
    Dim I As Integer
    Dim Temp1,Temp2 As Double
    Dim Result(100) As Double
    For I = 0 To Num
     if I=0 then
Result(0)=1
end if
if I=1 then
Result(1)=1
end if
if I>1 then
Result(I)=Result(I-1)+Result(I-2)
end if
Response.write(Result(I).ToString)
if I<>Num then
Response.Write(", ")
end if
    Next
  
tEnd=Timer()
tDone=(tEnd-tBegin)*1000
response.write("<BR>页面执行时间：" & tDone.ToString &"毫秒<BR>")
  End Sub
  </Script>

Answer 2

将    Dim Result(100) As Double 一句改为：
    Dim Result(Num) As Double则更佳。
将Num常量值改为400也是箭步如飞！（啊，数组真好！~.~ ）