太快，用时小得没办法用秒表示出来。
改为这样：
Dim a As Date = Date.NowDim sum As DoubleFor i As Integer=1 To 10000000 sum = sum+iNextMessageBox.Show("耗时:" & (Date.Now - a).TotalMilliseconds)
加好友 
发短信
Post By：2012/11/15 8:24:00 [显示全部帖子]
