vb中的延时函数 Public Sub Delay(PauseTime As Single) Dim Start As Single Start = Timer Do While Timer < Start + PauseTime DoEvents LoopEnd Sub