VBscript(ASP)計算程式已耗用時間，精度到毫秒

 

讓伺服器執行50萬次加法(整數運算)和20萬次開方(浮點運算)，記錄其所使用的時間。 <br/>
        <%
    dim i,t1,t2,tempvalue,runtime1,runtime2
    '開始計算50萬次加法所需時間
    t1=timer()
    for i=1 to 500000
        tempvalue= 1 + 1
    next
    t2=timer()
    runtime1=formatnumber((t2-t1)*1000,2)
    
    '開始計算20萬次開方所需時間
    t1=timer()
    for i=1 to 200000
        tempvalue= 2^0.5
    next
    t2=timer()
    runtime2=formatnumber((t2-t1)*1000,2)
%>
&nbsp;<font color=red><%=runtime1%> 毫秒</font>
&nbsp;<font color=red><%=runtime2%> 毫秒</font>

在作者自己電腦上的運行結果是

讓伺服器執行50萬次加法(整數運算)和20萬次開方(浮點運算)，記錄其所使用的時間。
 203.13 毫秒  156.25 毫秒