程序代码：

Static Sub DelayLoop(DelayTime)
Const SecondInDay = 24& * 60& * 60&
LoopFinish = Timer + DelayTime               'Timer是函数
If LoopFinish > SecondInDay Then
   LoopFinish = LoopFinish - SecondInDay
   Do While Timer > LoopFinish
   Loop
End If
Do While Timer < LoopFinish
Loop
End Sub

Private Sub Form_Click()
FontSize = 12
Print "现在输出第一行"
Print "等待5秒钟……"                        '运行结果有问题
DelayLoop 5                                 '调用过程方法一
Print
Print "输出第二行"
Print "等待10秒钟……"
Call DelayLoop(10)                          '调用过程方法二
Print
Print "输出第三行"
End Sub

运行结果与预计的不同，您可以在编译器上运行看看，谢谢了！！！