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

20 查阅

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

Sub dlys(ByVal n As Single)

Dim tl As Single

Dim t2 As Single

t1 = Timer

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。

计算机考试