关于一个函数的延时问题!

Question

现在有一个函数比如:sub1.它本身的反应时间是20ms,(也就是每20ms执行一才)我怎么把它的反应时间增长啊?(就是比如说想让它每2s执行一次)比如说想要增长2s的话.是不是用sleep.怎么用?

Answer 1

20ms究竟是sub的执行频率？ 还是执行费时？
如果是频率，就用timer控制他执行，修改timer的intaval属性即修改执行频率；
如果是费时，就在sub里面用sleep延时。

Answer 2

我觉得楼上的楼上和楼上的楼上的楼上说用计时器这个方法好。如果你不介意的话还可以使用DoEvents
dim i as integer
for i=0 to n
    DoEvents
next

Answer 3

如果你要保证你的程序执行到二十秒,可以这样做    Dim a
    Dim i As Long
    a = Timer
    '执行你的程序代码
    While (Timer - a) <= 2
        If Timer < a Then
            a = a - 86400
        End If
    Wend
    Debug.Print a, Timer

Answer 4

如果你要保证你的函数执行到二十秒,可以这样做    Dim a
    Dim i As Long
    a = Timer
    '执行你的程序代码
    While (Timer - a) < 2
        If Timer < a Then
            a = a - 86400
        End If
    Wend
    Debug.Print a, Timer