Code:
Imports System.Text
public class Test
public Shared Sub Main
Const ADD As String = "1234567890"
Dim num As Long = 1000
Dim start As DateTime
Dim stop As DateTime
Dim elapsed As TimeSpan
Dim txt1 As String
Dim string_builder As New StringBuilder
txt = ""
start = Now
For i As Long = 1 To num
txt1 = txt1 & ADD
Next i
stop= Now
elapsed = stop.Subtract(start)
Console.WriteLine(elapsed.TotalSeconds.ToString("0.000000"))
txt = ""
start = Now
For i As Long = 1 To num
string_builder.Append(ADD)
Next i
txt1 = string_builder.ToString()
stop = Now
elapsed = stop.Subtract(start)
Console.WriteLine(elapsed.TotalSeconds.ToString("0.000000"))
End Sub
End class
This code will help you.
Bookmarks