[填空题] 在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。Sub dlys(ByVal n As Single)Dim tl As SingleD

[填空题] 在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

【12】

Loop

End Sub

Sub main( )

Form2. Show

dlys 【13】

【14】

Form1. Show

End Sub