当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 在Visual Basic 程序启动运行中设置一个封面窗口,显示一些有意义的信息,要求显示时间5秒。Sub dlys(ByVal n As Single)Dim tl As SingleDim t2 As Singlet1 = TimerDo t2 = Timer If t2 < t1 Then t2 = t2 + 86400 If t2 - tl > n Then Exit Do 【12】 Loop End SubSub main( ) Form2. Show dlys

  

参考答案:

[12]DoEvents[13]5[14]UnloadForm2

  参考解析

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

微信端