如何做到1毫秒执行一次加1

如何做到1毫秒执行一次加1

如题

死脑筋,
你就不会1s执行1000次,然后加1000

我估计vb难...




-----------------------------
我是猴嫂派来监视猴哥的...

不对。我只是想1毫秒执行一次

VB code

Option Explicit

Private Sub Form_Load()
Label1.Caption = 0      '执行次数
Label2.Caption = 0      '执行用时
Timer1.Interval = 1     '1ms执行一次
Timer2.Interval = 1000  '1s计时一次
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1  '累计执行次数
End Sub

Private Sub Timer2_Timer()
Label2.Caption = Label2.Caption + 1   '累计执行用时
End Sub

我的机子执行1000次大约用时15.5s,嗯不错.



-----------------------------
我是猴嫂派来监视猴哥的...