StringBuilder Performance Test
Imports System Public Class MainClass Shared Sub Main() Dim i As Integer Dim StartTime As New DateTime() Dim EndTime As New DateTime() StartTime = DateTime.Now() Dim theText As New System.Text.StringBuilder() For i = 1 To 50000 theText = theText.Append("A") Next EndTime = DateTime.Now Dim answer1, answer2 As Long answer1 = EndTime.Ticks() - StartTime.Ticks() StartTime = DateTime.Now() Dim aString As String = "" For i = 1 To 50000 aString = aString & "A" Next EndTime = DateTime.Now answer2 = (EndTime.Ticks() - StartTime.Ticks()) Console.WriteLine("StringBuilder was " & answer2 / answer1 & " times faster.") End Sub End Class