VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/06/10(Thu) 19:33
投稿者： とうきちろう
Ｅメール：
ＵＲＬ：
タイトル： Re: 文字列連結の高速化

前：113.77秒
後：3.30秒
約34.48倍

環境：Win2000
VB6

Const MAX_VALUE = 100000
Const END_OF_LOOP = (MAX_VALUE / 5&) - 1&

Const ADD_VALUE = 55555
Const INITIAL_VALUE = 12345&

Private Sub Command1_Click()
    Dim tm As Long
    Dim data As String
    
    tm = Timer
    
    data = func
    
    MsgBox Timer - tm
End Sub

Private Function func()
    Dim i As Long

    Dim sCurrStr As String
    Dim lCurrVal As Long

    Dim lLoop As Long

    lCurrVal = INITIAL_VALUE

    For lLoop = 1 To END_OF_LOOP
       sCurrStr = sCurrStr & CStr(lCurrVal)
       lCurrVal = lCurrVal + ADD_VALUE
    Next

    func = sCurrStr
End Function

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -