测量程序运行时间

Imports System.Diagnostics

        Dim stopW As Stopwatch = New Stopwatch

        stopW.Reset()

        stopW.Start()

        For i As Integer = 0 To 100000

            i += 1

        Next

        stopW.Stop()

        Trace.WriteLine(stopW.Elapsed.Ticks)

        Trace.WriteLine(Stopwatch.GetTimestamp.ToString)

每个Tick等于千万分之一秒

每个Tick等于万分之一毫秒

转自：http://blog.sina.com.cn/s/blog_57c8bb310100kj90.html