VB循环等待

   

 

    今天，写一个VB程序，需要等待一定的时间来等待数据的返回，想到了一个写法，不知道大家觉得怎么样！贴出来大家给提点一下！

    Dim t1, t2 As Date   '定义两个时间点
    Dim n As Double     '等待时间，单位s
    n = 1
    t1 = Now
    t2 = t1 + (0.1 / (24 * 360)) * n
    Do While Now < t2
        DoEvents
        ReadMSComm
    Loop

   另：0.1 / (24 * 360)，如果写成1/(24*3600)会更好理解，但是24*3600就会溢出，我想原因肯定是VB中Integer在我的机器中占4个字节，范围是-65536~65535，而24*3600=86400所以溢出！