VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/10(Thu) 19:11 |
| 投稿者 | ： まんたろー |
| ＵＲＬ | ： |
| タイトル | ： 文字列連結の高速化 |
暇な方
文字列連結の高速化の競争しましょう。
以下のコードの高速化をしてみてください。
Private Function func()
Dim i As Long
Dim tmp As string
For i = 0 To 100000
tmp = tmp & CStr(i)
Next i
func = tmp
End Function
計測は以下の方法で
Private Sub Command1_Click()
Dim tm As Double
Dim data As String
tm = Timer
data = func
MsgBox Timer - tm
End Sub
ハードの性能に依存するので、高速化前/後の倍率で勝負です。
私の記録です。
前：108.26秒
後：0.22秒
約492倍
環境：Win2000
VB6
方法は後ほど書きます。
それでは皆さんがんばりましょう
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）