StringBuilderで文字列を連結して時間を測る

    Private Sub SetString()

        'StringBuilderのインスタンス作成
        Dim strBuild As New System.Text.StringBuilder

        'スタート時間を記憶
        Dim timeNow As Date = Now
        For i As Integer = 0 To 100000
            strBuild.Append("富士山" & Environment.NewLine)
        Next

        'スタート時間からの経過時間の計算と表示
        Dim myTimeSpan As TimeSpan = DateTime.Now.Subtract(timeNow)
        Label1.Text = Format(myTimeSpan.Seconds, "00") & ":" _
                    & Format(myTimeSpan.Milliseconds, "000")
    End Sub

   ←備忘録項目に戻る