- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]我們知道用“ & ”號比用“+”號快。因為“+”要對字符竄變量做類型判斷并轉換。 當時也沒想出什么好辦法。只是將兩次“&”運算拆開，速度提了一倍。還是解決不了問題。 結果就是：for i 1 to 5000 ，i以字符形式相加。用&運算，要300-500ms 現在試試下面這...
我們知道用“ & ”號比用“+”號快。因為“+”要對字符竄變量做類型判斷并轉換。
當時也沒想出什么好辦法。只是將兩次“&”運算拆開，速度提了一倍。還是解決不了問題。
結果就是：for i 1 to 5000 ，i以字符形式相加。用&運算，要300-500ms
現在試試下面這個。建了個CStrCat的類。
程序代碼：
Class CStrCat '這是類開始。
Private i,sa()
Public Property Get Value
Redim Preserve sa(i)
Value=Join(sa,"")
End Property
Private Sub Class_Initialize()
i=clng(0)
Redim sa(500)
End Sub
Private Sub Class_Terminate()
Erase sa
End Sub
Public function Add(ps)
If len(ps)=0 Then Exit Function
If (i>=ubound(sa)) Then upsize
sa(i)=ps
i=i+1
End function
Private Sub UpSize()
Dim u
u=ubound(sa)
Redim Preserve sa(clng(u+u*0.1))
End Sub
End Class
你可以用這個代碼測試一下性能分別：
程序代碼：
<%
PageExeTime1=Timer * 1000 '計時開始
Set sc=new CStrCat
For i=0 To 5000
sc.add i&"aaaaaa"
next
response.write sc.value
'計時結束
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime1))&"ms</font></p>"
PageExeTime2=Timer * 1000
For i= 0 To 5000
sc2=sc2&i&"aaaaaa"
Next
response.write sc2
'計時結束
Response.Write ",Processed time:" & fix(abs(CDBL(Timer)*1000 - PageExeTime2))&"ms</font></p>" %>
推薦資訊 總人氣榜
