Rully Yulian MF

   1:  Module Module1

   2:      Sub Main()

   3:          Dim dtAwal, dtAkhir As DateTime

   4:          Dim tsDiff As TimeSpan

   5:   

   6:          Dim strDiffTime, strConcat, strMessage As String

   7:          Dim sbConcat As New System.Text.StringBuilder

   8:   

   9:          dtAwal = Now

  10:          For i As Integer = 1 To 10000

  11:              strConcat &= i.ToString

  12:          Next

  13:          dtAkhir = Now

  14:          tsDiff = dtAkhir.Subtract(dtAwal)

  15:          strDiffTime = tsDiff.TotalMilliseconds

  16:   

  17:          strMessage = String.Format("String Time is : {0} ms.", _

  18:          strDiffTime)

  19:          MsgBox(strMessage)

  20:   

  21:          dtAwal = Now

  22:          For i As Integer = 1 To 10000

  23:              sbConcat.Append(i.ToString)

  24:          Next

  25:          dtAkhir = Now

  26:          tsDiff = dtAkhir.Subtract(dtAwal)

  27:          strDiffTime = tsDiff.TotalMilliseconds

  28:   

  29:          strMessage = String.Format( _

  30:          "StringBuilder Time is : {0} ms.", strDiffTime)

  31:          MsgBox(strMessage)

  32:      End Sub

  33:  End Module