A-A+

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

2022-08-12 20:28:53 问答库 阅读 197 次

问题详情

在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


请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:DoEvents 5 Unload Form2
在空1处,为了在闲置循环状态下可响应其他事件,使用语句DoEvents;接下来,在空2处,使用延时子程序dlys,因为是延时5秒钟,因此此处n的值为5;在空3处,应该将封面窗体form2卸载掉,因为它只是在启动的时候给用户展示一个画面信息,在以后程序运行中将不再用到它,将它从内存中彻底清除,使用语句UnloadForm2。

考点:封面,窗口