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

20 查阅

[填空题] 在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Dot2 = TimerIf t2 ＜ t1 Then t2 = t2 + 86400If 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。

计算机考试