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