在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。

Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Do t2 = Timer If t2 ＜ t1 Then t2 = t2 + 86400 If t2 - tl ＞ n Then Exit Do 【 】 Loop End Sub Sub main() FormShow dlys【 】 【 】 Form1.Show End Sub