![[填空题] 在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。Sub dlys(ByVal n As Single)Dim tl As SingleD](http://www.mshxw.com/aiimages/31/251179.png "[填空题] 在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
参考答案：
[12]DoEvents [13]5 [14]Unload Form2问题解析:
在空【12】处，为了在闲置循环状态下可响应其他事件，使用语句DoEvents；接下来，在空【13】处，使用延时子程序dlys，因为是延时5秒钟，因此此处n的值为5；在空【14】处，应该将封面窗体form2卸载掉，因为它只是在启动的时候给用户展示一个画面信息，在以后程序运行中将不再用到它，将它从内存中彻底清除，使用语句Unload Form2。
