Function Sleep(n) ' 单位秒s Dim StartTime StartTime = Timer Do : Loop Until Timer > n + StartTime End Function