一楼的解释正解,VB的计时器因系统每秒给出18次基准,所以它的最小精度约55MS。 可用下列代码测试: Option Explicit Dim i As Integer Dim timerOld As Single Private Sub Command1_Click() Cls timerOld = Timer i = 0 Timer1.Enabled = True End Sub
Private Sub Form_Load() Timer1.Interval = 1 Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() Print i, Timer i = i + 1 If i > 18 Then Print Timer - timerOld Timer1.Enabled = False End If End Sub本回答被提问者采纳