为什么输出的值在不同的机器上不一样

Question

Private Declare Function timeGetTime Lib "winmm.dll" () As Long程序:
  Dim aa As Long, kk As Long ' Integer
  Static bb As Long
  Dim i As Long
  Dim ii As Long
  Dim ll As Integer, mm As Integer
  bb = timeGetTime()  kk = 8
  Do While (True)
        aa = timeGetTime()
        If aa - bb >= kk Then 'If aa / kk <> bb And aa Mod kk = 0 Then
          Debug.Print "bb:" & bb & " aa:" & aa & " b-a:" & bb - aa
          bb = aa 'bb = aa / kk
          ii = ii + 1
        
        End If
        DoEvents '!!!!!!!!!!
        
        ii = ii + 1  Loop为什么输出的bb - aa的值在不同的机器上不一样

Answer 1

因为有了DoEvents系统到时候会执行一下其它任务，这样就耽搁了很多时间

Answer 2

这个东西不是我们可以确定的,而是由系统调配的,所以,我们一般才会写aa - bb >= kk